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This manual is intended to be a guide to the internal operation of the Apple 
Pascal System. It describes the operation of the Apple Pascal p-Machine, 
the operating system, and various systems utilities such as the SYS- 
TEM.ATTACH program. It explains how to patch the system for improved 
performance as well as additional utility It describes how to hook up non- 
standard peripheral devices (such as a clock card or arithmetic processing 
unit) to the Apple Pascal System. Finally, it will attempt to provide a partial 
"road map" to the system explaining how memory is used and what it is 
used for. In short, it is intended to provide a strong "p-SOURCE" of 
information for the advanced Apple Pascal user. 

The manual is divided into three main sections: Pascal program examples, 
a "road map" to the p-code interpreter, and a designer guide for peripheral 
manufacturers and assembly language programmers. The first section pro- 
vides information on hints and various "tricks" available to the Apple Pascal 
programmer. The road map details how memory is used by various portions 
of the Apple Pascal p-code interpreter. The last section describes how to 
interface peripherals and machine language programs to the Apple Pascal 
System. 



Section One 

Programming Techniques 
in Apple Pascal 




Introduction 

This section will not show you how to become a better Apple Pascal pro- 
grammer. On the contrary, it will teach you bad programming practices, 
poor programming style and non-portable techniques. While some of you 
may call these techniques abhorrent and label any program using them as 
poorly written, a simple fact remains: a poorly written program that works 
is much better than a well written program that does not. 

This first section oip-Source discusses three main topics: the use of shared 
allocation in Apple Pascal (allowing you to implement the famous PEEK 
and POKE instructions as well as perform "bit-tweaking"); optimizing 
compiler generated code by rearranging declarations and program state- 
ments; and an easy method for debugging your Pascal programs using 
facilities built into the Apple Pascal compiler. 

This manual assumes that you are a competent and experienced Apple Pascal 
programmer. The optimization hints and techniques described herein should 
not be utilized by the novice, nor should they be incorporated into a program 
from the outset. In most cases, a better algorithm or data structure will 
completely remove the need to use the machine dependent techniques 
described here. The optimization techniques presented make the program 
less maintainable, machine-dependent and harder to understand. Tlierefore 
they should only be used as a last resort to speed up or shrink your program. 
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Overview 

While Apple Pascal provides several useful data structures for representing 
high-level objects, the need to access data in a low-level fashion is often 
required. Lx)w level manipulation of a data object is easily accomplished by 
treating a memory location as one type of data under certain circumstances 
and as another type of data under other circumstances. The traditional solu- 
tion has been to resort to machine language subroutines in order to perform 
these operations. Performing programming tricks in Pascal offers several 
advantages over using machine language. Machine language is difficult to 
learn and makes the program even less portable. 

Apple Pascal provides variant records, a mechanism by which a record can 
vary in composition depending upon the environment. For example, you 
could have a record type PERSON that contains various fields depending 
upon whether the person was married or not. 

Example: 

TYPE 

maritalstatus = ( single »married ) i 
case maritalstatus of 

single: ( name :string ; 
age:integer; 
socsecsstring; 
sexiBOOlean) ; 

married: ( name : string » 

SPQUSE:STRING5 
AGE:INTEGER5 
S0CSEC:STRING) ! 

end; 



The purpose of a variant definition is to allow you to view a data structure 
differently depending upon several external cases. In the example above, the 
data types vary depending upon whether or not the person is married. The 
single person has an extra SEX component while the married person has an 
extra SPOUSE component. 
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Whenever a variant is defined, Apple Pascal allocates enough storage for the 
largest variant present in the variant part of the record definition (see Fig- 

ux\,^ J.-J. cuiu. ^~^j- Oixi\.\, \y^j uoliig Liiv, v^oow VcUldllL lOllH Ul UlC iVlj^VJ'JVIJ' 

definition) you have agreed to use fieldnames from only one variant in the 
variant part, Apple Pascal will reuse the same memory space for single and 
married people. That is to say, at one time the 248 bytes reserved for the 
structure above are used to hold the information associated with the married 
person; at a different time those same 248 bytes are used to hold the infor- 
mation associated with the single person. You are not supposed to use the 
fieldnames from the married variant field when dealing with a single person; 
likewise you mustn't use the fieldnames firom the single person when dealing 
with a married person. 



MARITALSTATUS Record Space Utilization: 







case: Harried 




— In- 


Name 
(82 bytes) 


ftge (2 bytes) - 


Spouse 
(82 bytes) 


SOCSEC 
(82 BYTES) 



Cose: Single 



Age (2 bytes) 



Sex (2 bytes) 



Name 

(82 bytes) 




Figure 1-1 
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MARITALSTATUS Record Spece Utilization: 
(Without Case Variant Records) 



Case: Married 



Age (2 bytes)- 




spouse 
(82 bytes) 



Sex (2 bytes) 



SOCSEC 
(82 BYTES) 



Figure 1-2 
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You will notice that 82 bytes are wasted when dealing with a record con- 
taining a single person. This, however, is much better than using the fol- 
lowing recoru uCmiition since this wastes space for both married and single 
people: 



PERSON = RECORD 



name:string; 
age:integer; 
spouse:string; 

SQCSEC:STR!NG 5 

sekzboolean; 



end; 



This discussion applies only to data structures which are defined as VARi- 
ables. Dynamic variable allocation (via the NEW procedure) has provisions 
for allocating the exact number of bytes required. If you declare PEOPLE 
to be a pointer to the data type PERSON, you could allocate storage using 
die command NEW(PEOPLE,SINGLE) that allocates only the number of 
bytes required by the SINGLE variant. NEW(PEOPLE,MARRIED) allo- 
cates the same amount of storage as NEW(PEOPLE) since the MARRIED 
variant requires the maximum amount of storage. In the discussion that 
follows I assume that pointers and dynamic allocation are not being used. 

Before describing the various "tricks" you can play with the case variant 
part, a discussion of the case variant's purpose may be helpful. A good 
example where you would use a variant record is in a maUing list program. 
Many mailing list programs keep track of the number of records in a file by 
storing the record count as part of the file (usually in record number zero). 
Without the case variant part you would have to use a separate file^ or worse 
yet include the coimt field in every record. With the case variant only the 
first record of the mailing list file need contain this information, e.g., 
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TYPE 

RECTYPE = (REC0tALLOTHERS) ? 
MAILLIST= RECORD CASE RECTYPE OF 

REC0: (NUMRECS:INTEGERCB]) i 

ALLOTHERS:( {Norwal record data Soes here> )5 

end; 



As you can see, the variant portion is actually usefid on occasion. 



Games People Play with the Case Variant 

Now we come to the whole purpose of this discussion — by bending the 
rules behind Pascal's back we can perform some really neat tricks. Before 
discussing these tricks a word of warning is in order: many of these tech- 
niques are non-portable, which means they will work fine on an Apple II 
but may not work on any other machine running Pascal (including the 
Apple ///). 

The main idea behind all the neat and nifty tricks that follow is summed up 
in a statement made earlier: the programmer should not access fields in dif- 
ferait variants when operating on the same datum. Note that we said sh(mliin% 
not can't. The Pascal compiler has no way of knowing which variant the 
program is using so it will allow you to use mixed fields without complain- 
ing. After all, you agreed not to, if you do it's your own fault ("With freedom 
comes responsibility" — Pascal MT+ Manual). You can pull some very 
interesting tricks by breaking the rules and going ahead and accessing fields 
from the different variant fields. 

For the purpose of discussion consider the record: 



undo = record case boolean of 

false: (i: integer) 5 

true :(b:packed array [0..1] of 0..255); 

end; 
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Both variants require the same amount of memory, namely two bytes (see 
Figure 1-3). If a variable (say A) is declared to be of type UNDO, you 
^^^u.^ u.^d.1. rL.j. ti^ aii uiLCgs,! ill a ioonnjii <i» uiougii vuu ucciareQ an integer 
variable A.I. Likewise, you could treat A.B[0] and A.B[1] as the two ele- 
ments of a packed array of 0..255 just like any other variable declared to be 
a packed array of 0.. 255 with two elements. A problem (and, in our case, 
the advantage to this scheme) occurs if you try to use A.I and A.B simul- 
taneomly. Consider the program segment: 



A.I := 255; 
A,B[0] := 0; 

WRITELN(A,I) ; 



Shared Allocation using the Case Variant Record Definition 



Uhen referenced as A.I 



Uhen referenced as A.B 



16-bit 2's conplenent 
inte ger value 




Single Physical | 
flenory Location | 






A.B[0] 


A.B[1] 




I 



46-bit 2 '^coivteiMM 

integer value 



A.B[1] 




A.B [0] occupies the sane space 
OS the louer half of A.I and 
A.B [1] occupies the sane space 

SS ai^ ujiijSef TiaTf of R.T, 



Figure 1-3 
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If you run this code you'll probably be quite surprised, it prints zero instead 
of 255 as the value for A.I! The reason zero is printed is that the variable 
A.I and the array A.B share the same two bytes in memory storage (see 
Figure 1-4) . As a result, storing data into the array A.B modifies the contents 
of A.I as well. In this case it assigned zero to the low-order byte of A.I, 
which contained the only I -bits of the integer 255. 

This phenomenon is due to the fact that A.I and the array A.B share the 
same physical memory locations. Storing a value in A,I affects the contents 
of the array A.B and storing data into one of the elements of A.B affects 
the integer A.I. Exacdy how they interact provides the basis of this chapter. 
A.B[0]'s storage corresponds to the storage of the low order byte of the 
integer A.I and A.B[l]'s storage corresponds to that for the high order byte 
of A.I (see Figure 1-3). This means diat it is possible to disassemble an 
integer into its low-order and high-order components! 

While this is mildly interesting, you're probably thinking, "Big deal, of what 
use is this?" Well, suppose you wanted to print the integer I as a four-digit 
hexadecimal value. While it could be done from Pascal without using any 
tricks (see Listing 1-1), the program in Listing 1-2 is much more compaa 
and executes faster than programs using standard methods. 

The piece of incredibly opaque code foimd in listing 1-2 will print the 
integer variable passed to it as a four-byte hexadecimal value. It starts by 
copying the integer into the A.I variable so that I can be disassembled 
nibble-by-nibble. The A.N array is a packed array of nibbles, each nibble 
corresponding to four bits of the integer A.L Starting with the most sig- 
nificant nibble (there are four of them in A.N) the FOR loop converts each 
successive nibble to a hexadecimal character and writes it. 

This technique can even be used to access data at the bit level. Consider the 
record definition: 



getbits = record case boolean of 

false: (i:integer) 5 

true :(b:packed arrayc0..15] of boolean)? 

end; 
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Accessing two cases in a varlait record simultaneously: 



fl.i 



^ 



H.O. Byte j L.O. Byte 
I 



A.B- 



1) "A.I := 255" (note: $OOFF is hex equivalent of decanal 255) 



A.B[0] occupies the sarw space as 
the lou ordeT byte of A.I and 
A.B[1] occupies the sane space as 
the high order byte of A.I 



A.I 



H.O. Byte 
$00 



L.O. Byte 
$FF 



A.B [1] 
$00 



A.B [0] 
$FF 



A.B 



Since A.I and a.b occupy the sane physical nenory locations, 
storing $0OFF (255) into A.I also stores $OOFF into A.B. In 
this case the high order data byte ($00) Is stored into A.B[l] 
and the low order data byte ($FF) is stored into A.B[0]. 



2) "A.B [0] := 0;" 



A.I 



^ 





) 










A.B [1] 
$00 


A.B [0] 
$00 






H.O. Byte 
$00 


L.O. Byte 
$00 







A B ' 

Since A.I and A.B occupy the sane physical nenory locations, 
storing zero into A.B [0] also zeroes out the lou order byte 
of A.I. Since the high order byte of A.I already contained 

rerw, ■«. I mwr contains tfw viQut rere. 

3) "URITELN(A.I);" 

Since both the lo« order and high order bytes of A.I contain zero, zero will be printed. 



Figure 1-4 
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In this example, a variable of type GETBITS (say A) has access to each of 
the individual bits in the integer portion of the variable (see Figure 1-5). 
For example, if you executed the code: 



A, I := 0; 
A.BC0] := true; 
A.BC2] := TRUE! 



and printed A.I you would get the value 5 displayed on your terminal. This 
is due to the fact that you've set bits two and zero to one, which is the 
binary value %0000000000000101 (decimal five). For setting, resetting 
and testing bits this method works great. For other logical operations (such 
as AND and OR) there's a better way . . 



Accessing Individual Bits of an Integer Using a Packed Boolean Array 



GETBITS data representation: 



A.B [0] .. A.B [15] 

15 14 IJ 12 11 10 9 8 7 6 5 4 3 2 1 



A.I Integer value 



I ' I ' I ' I ' I ' I I I I r I I r I I I 
I I I I I I I I I I I I I I I I 
I I I I I I I I I I I I I I I I 




I I I I I I I I I I i"T-r 



The Boolean array "ft.B" and the 16-bit integer A.I both 
occupy the sane word of nenory. Accessing elenents of 
the A.B arr«;y lets you nanipulate Individual bits in 
the A.I integer value. 



Figure 1-5 
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The Apple Pascal language implements set types using bit arrays. If you 
declare a variable to be of type "SET OF 0..15" Apple Pascal reserves a 16- 
bit array with one bit corresponding to each integer value. Bit zero corre- 
sponds to the value zero, bit one corresponds to the set element one, bit 
two corresponds to the set element two, etc. If you were to declare the 
variable A to be of type: 



MAGICSET = CASE BOOLEAN OF 

FALSE: (I:INTEGER) 5 
TRUE : (S:SET OF 0, .15) 

END! 



Then an assignment of the form "AS := [15,10,7,3,1];" sets bits one, 
three, seven, ten and fifteen to one and sets all other bits to zero (see Figure 
1-6). This allows you to set multiple bit patterns with one assignment instead 
of the several required by the Boolean array method. 

Better yet, the set construct allows you to selectively set or clear any partic- 
ular bit(s) without affecting other bits. By using the Pascal set union and 
intersection operators you can emulate the logical AND and OR functions. 
The set union operator lets you emulate the logical OR function. Assuming 
you have three variables A, B and C of type MAGICSET, you could store 
the logical OR of A.I and B.I into C.I using the code: 



C.S ;= A.S + B.S; 



To perform the logical AND operation you would use the set intersection 
operator. To place the logical AND of A.I and B.I into C.I you would use 
the code: 



C»S := A.S * B.S! 
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Apple Pascal Set Type Data Representation 



Assuming you have a variaile "S" defined Py the 
statenent: 

S: SET OF 0..15; 



The elements of S are represented using the bit array: 

Bii»: 15 14 13 12 11 10 9 8 7 « 5 4 3 2 1 



This bit is s»t if 
the set contains IS 



ETC. 



This bit is set if 
the set contains 



This bit is set if 
rto set contains 1 



This bit is set if 
the set contains 2 



This bit is set if 
the set contains 3 



For exaivle. the ossignnent "S :- [0.5,10.W.15];" yields the wilue: 
i, ». 15 14 13 12 11 10 9 8 7 « 5 4 3 2 1 



1= Bit Set 



D 



' Bit Clear 



Figure 1-6 



The set difference, (in)equality, set inclusion and set membership operators 
may also prove helpful every now and then. 

Sometimes it's handy to treat a bit string as an element of a set; sometimes 
it's better to treat it as an element of a packed array of Boolean. In these 
situations use the type definition: 
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TRINARY = 0, .2! 

BITSTRING = RECORD CASE TRINARY OF 



0:(I:INTEGER) 5 

1:(B:PACKED ARRAY 110,. 15] OF BOOLEAN)! 
2: (S:SET OF 0. ,15) ; 



END 



This aUows you to reference A in three modes (A.I, A.B and A.S) yet operate 
on the same data without having to make spurious assignments (see Figure 
i--/). 



Referencing a Memory Word Using "mree Different Formats: 



BITS7RIMC Rtcord 0«finiUon: 



eiTSTRINC = RECORD C«£ TRINWIt OF 

0:(I:IltTECeR); 

l:(B:P(»a> ARRAV [0..15] OF BtMLEflN); 

Z:(S:SET OF 0..15); 



BD; 



BirSTRINC.S 

BITSTRIHC.B ► 

8ITSTRIHG.I -""^ 
BITSTRIMG.I 

BITSTRING.B 
BnSTRINC.S 



•r ' I ■ I ■ I ■ I ' . 1 1 1 1 1 1 I . I ■ 1 , 1 , 1 , 1 , 1 , 



ErXXTZTTTT 






BITSTRINC.I, BITSTRINC.B and BITSTRINO.S 
«11 occupy the sm« word of nenory. 
Therefore, storing a value in one of these 
variables affects the other tuo. This 
allows you to set or reset bits in m 
Integer irintK asm ttk sef type and 
test to see if a bit is set using the 
Boolean data type. 



Figure 1-7 
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An Overview of the p-System Run-Time Environment 

Before continuing, I must digress and discuss Apple Pascal's memory allo- 
cation scheme. Additional information concerning the Apple Pascal run- 
time environment can be found in the Appendix. 

Figure 1-8 provides a schematic of what the system is like during the exe- 
cution of a typical program. Since the Apple's architecture and 6502 micro- 
processor chip force certain constraints on die software, you will notice 
certain similarities between Pascal's memory map and BASIC'S memory 
map. Like BASIC (or DOS), die lower memory locations (in diis case 
locations $0 through roughly $1000) are reserved for the system software, 
the video screen, die hardware stack and for odier purposes requiring data 
in a fixed location. Just like BASIC, die p-System's interpreter sits in die 
16K language card freeing up space in main memory for die operating 
system and user programs and data. By placing part of die operating system 
into die 16K card, almost 40K of space is available for user programs and 
data. 

In order to use space as efficientiy as possible, die Apple Pascal system 
dynamically allocates storage on two stacks while the user program executes. 
The program stack starts at die top of memory (just below the operating 
system) and grows downward. Whenever you eX)ecute a program firom the 
Apple Pascal command level, space is aUocated on diis stack for die program 
code and for any variables you declare in your program. When a program 
is invoked, first the code is loaded onto the program stack then any room 
required for permanent variables is allocated just below die program code. 
Figure 1-9 gives you an idea of what the stack looks like during the execution 
of a specific program. 

Widi die exception of Apple Pascal's SEGMENT PROCEDURES, die 
amount of memory required for program code remains constant tiiroughout 
die execution of die program. SEGMENT PROCEDURES are only loaded 
into memory when diey are called. For bulky initialization code and oriier 
rarely called procedures, using Apple Pascal's SEGMENT PROCEDURE 
feature can save some space at die expense of greater execution time. Figure 
1-10 demonstrates memory utilization during die execution of a SEG- 
MENT PROCEDURE. You can see that the code for the SEGMENT 
PROCEDURE gets loaded onto die stack below die variables allocated by 
the calling code. 
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Apple Pascal Memory M^ 



FFFF 

p-Code Interpreter 

and 1/2 of Pascal Operating System 

DOOO 
CFFF 

COM '^l^ ^■^0 Space 

BFFF 

1/2 Of Pascal Operating System 

: AOOO 



User Memory Space 

:iooo 

Heap and I/O Drivers 
rocoo 

Reserved for 0/s aid video 

0000 



Figure 1-8 
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Memory Allocation During the Execution 
of a Typical User Program 



H^FF 



sAOOO 



. \ \ \\\ \ \ s \ \\ 



User Program Code Space 



User Program Data Spsce 



■On 

\^- ^N '"> \V"> Vn W' 



\\ 



.OC-NNNXAX 



Free Memory 



0C00..1000 



User Heap space 



I/O Drivers aid 
Reserved Memory 



Figure 1-9 
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Memory Utilization During the Execution 
of a Segment Procedure. 




BFFF 



AOOO 












Pascal 0/s 

fton- segmented Program cede 

User Variable for 
Non-segmented Section 

Segment Procedure Code 

Variables Defined in 
Segment Proceckjre 

Free Memory 
User Heap Space 



0C00..1000 



Reserved Space 



Figure 1-10 
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While the program stack is busy growing downwards, another stack is grow- 
ing upwards. This second stack (referred to as the 'HEAP' in the Apple 
Pascal literature) is where space for Pascal's dynamic variables are allocated. 
Dynamic variables in Pascal are allocated with the NEW procedure. To 
allocate storage on the heap you must declare a pointer variable and then 
execute the NEW procedure passing the pointer variable as a parameter. A 
pointer variable requires two bytes of storage (enough to hold the 16-bit 
address used by the Pascal system) and is allocated on the program stack 
along with other variables. Whenever you execute the NEW procedure, the 
HEAP pointer is copied into the specified pointer variable and then the 
HEAP pointer is incremented to make room for the variable being allocated 
on the HEAP. Figure 1-11 diagrams how this allocation takes place. 

Once the space is allocated and the address is copied into the pointer vari- 
able, the pointer variable can be treated almost like any other variable of the 
specified type. The major advantage of using a pointer variable is that you 
can completely change the data in a large record by simply changing the 
address the pointer variable contains (see Figure 1-12). 

A minor problem with dynamic variable allocation in Apple Pascal is that 
pointers are ahvays allocated automatically The UCSD p-System was designed 
to rim on almost anyone's hardware. In order to achieve this goal the system 
was designed to prevent machine dependent constructs from creeping into 
UCSD Pascal programs. While this situation is ideal when you're interested 
in creating portable programs, it creates some problems when you're inter- 
ested in optimizing your programs by taking advantage of existing hardware 
in your machine. For example, the Apple's keyboard port is located at address 
$C000 in the memory space. It would be nice if you could override Pascal's 
automatic initialization of dynamic variables and load $C000 directiy into 
the pointer. If you could do this, then you could access the Apple's hardware 
directly, without the need for special drivers and without the need for using 
6502 assembly language. With this thought in mind I'll end the digression 
and return to the discussion of variant records (HINT: integers and pointers 
both require two bytes of storage). 
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Dynamic Memory Allocation Using KEll 
"ICICIP)" (wwre IP is a pointer to an integer) 




Pascal OS 



User Program Code 



User Data Area 



Free ftemry 



<- Hent Heap Pointer value 
<- Old Heap Pointer Value 

<- Previous Heap Data 



f^esenrecf Space 



Figure 1-11 
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Manipulating Data by Changing a Pointer 



Slow Way: 



Fast Way: 



CJopy Every Byte of a Multi-word 
Structure Into Another Location 



Address: 



YYYY -> 




Address: 



XXXX -> 



I Old Pointer | 
Value I 



Neu Pointer 
Value 



XXXX 



^ 




Copy Two-byte Address Into Pointer Variable 



Figure 1-12 
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Using the Case Variant with the Pointer Data Type 

A pointer variable consists of a two-byte value that contains the address of 
the desired data type. For example, a pointer to an integer contains not the 
integer itself, but rather the address in memory where the integer can be 
found. Normally Pascal initializes the pointer to point somewhere on the 
heap whenever you execute the new procedure; you have no control over 
the address in memory that the pointer points to. But consider the record 
definition: 



BYTE = 0»,255; 

TRIX = RECORD CASE BOOLEAN OF 



false: (p:*integer) ; 
true : (i:integer) ! 

end; 



A variable (say A) declared to be of type TRIX will have exactly two bytes 
reserved for it. When referenced as A.P these two b)tes correspond to the 
pointer to an integer (i.e., A.P); in the other case these two bytes can be an 
integer value (i.e., A.I). You can use this form of the case variant record 
definition to observe die actions of the Pascal NEW procedure using the 
code: 



FOR J := TO 33 DO BEGIN 
NEM(A.P) ; 

writeln( 'a.i= '#a.i); 
end; 



By running this program you can observe A.I being incremented by two 
each time you pass through the loop, this demonstrates how Pascal allocates 
sequential memory elements during dynamic allocation. 
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While this may seem instructive, but impractical, there is one interesting 
use of this form of the case variant form: it can be used to tell you where a 
free block of memory lies in the Apple memory space. By using this case 
variant with the MEMAVAIL ftinction you can determine the bounds of 
memory in use by the Apple Pascal System. The MEMAVAIL function 
returns the number of words (not bytes!) available to the system at any 
given moment. This value is computed by subtracting the value in the heap 
pointer from the value in the stack pointer and dividing by two. Since 
executing the NEW command loads die current value of the heap pointer 
into a pointer variable, this value plus two times the MEMA\AIL gives you 
the stack pointer value (see Listing 1-3). 

The real power you get from pointers and the case variant is not their ability 
to determine the address a pointer contains, but rather you gain the ability 
to modify the address contained within the pointer. This is accomplished 
by writing to the integer instead of just reading from it. By writing to A.I 
you overwrite the pointer value that was originally stored tiiere. For exam- 
ple, if you store -16384 into A.I and then use the pointer A.P you will 
access location $C000 (the Apple keyboard) in the Apple's memory space. 
This fimction gives you a bmlt-in PEEK and POKE command all rolled 
into one! In fact, the BASIC PEEK and POKE commands could be easily 
simulated with the Pascal routines: 



FUNCTION PEEKtADDRESS: INTEGER) :BYTE; 

type byte = packed array [0..!] of 0..255; 
magic = record case boolean of 

false: (i:integer) 5 
true : <p:*byte) 5 

end; 

uar a:magic? 

BEGIN 

A.I := ADDRESS! 
PEEK := A.P* [03; 

end; 
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PROCEDURE POKE( ADDRESS: integer; yALUE:BYTE)5 
TYPE BYTE = PACKED ARRAY [0.,!] OF 0,.255; 
MAGIC = RECORD CASE BOOLEAN OF 

FALSE: (I: INTEGER) ; 
TRUE :(P:''BYTE)i 

end; 

<^AR AiMAGIC; 
BEGIN 

A.I := ADDRESS! 

A.p-^ [0] := value; 
end; 



There is one very important difference between this Pascal version of PEEK 
and POKE and BASIC'S PEEK and POKE: BASIC is limited to handling 
data 8 bits at a time; the Pascal structure lets you PEEK and POKE any 
data structure you wish. For example, if you wished to peek and poke inte- 
gers instead of bytes you would change each occurrence of "BYTE" in the 
previous programs to "INTEGER". In fact, to peek or poke any data type 
(including arrays, sets and even pointers if you are so inclined) you need 
only replace "BYTE" with the name of the data type you wish to peek or 
poke. Listing 1-4 demonstrates how to read the Apple's keyboard by access- 
ing the hardware directly. 



Overview of the Pascal Run-Time System, Part Two 

The Apple Pascal compiler generates storage for variables in a linear fashion. 
Starting widi an offset of zero, variabtes arc assigned an "acktress" that 
corresponds to the size (in words) of all the variables previously declared 
in the current procedure. If you declare three variables; I, J and R; using 
the declaration: 



I: integer; 

r:real; 

j:integer; 
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then the address zero is assigned to I, the address one is assigned to R (since 
I requires one word of storage) and the address three is assigned to J (I 
requires one word of storage and R requires two words of storage — see 
Figure 1-13). The exact amount of storage required for any Apple Pascal 
variable except for PACKED ARRAYs and long integers is outlined in 
Figure 1-14. 



Pascal Variable Storage Memory Allocation 



VAR tINTCGER; 
FfcREAL; 
JdlMTEGER; 



Yields: 




Figure 1-13 
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storage Requirements for Apple Pascal Data Types 



Integer: One Word (Two Bytes) 



BcKJlean: One Word (Two Bytes) 



.\.\\\\\\v\: 
.\Not UsedX 
X\\\\\\\\ 



CHAR: One Word (Only the Low-order 
is used) 



User-Defined Scalar: One Word 



REAL: TWO words (Four Bytes) 

















// 


^ 




































y j^ 

























STRING[n]: (n*2) DIW 2 Bytes 



Figure 1-14 
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There is one instance where the assignment of a run-time address does not 
correspond to the appearance of a variable within a program. If you declare 
several variables of the same type in a Pascal statement, i.e.: 



I »J»K:INTEGER; 

then storage for K is allocated first, then J and finally space for I is allocated. 
If this declaration was the first to appear in a procedure then K would be 
assigned the address zero, J would be assigned die address one and I would 
be assigned two. Whenever several variables are assigned the same type in 
a single Pascal statement, backwards address allocation is performed. The 
variable closest to the type identifier is allocated storage first. Arrays and 
records are allocated space in an identical fashion except, of course, the 
required number of words are reserved for the structure instead of simply 
reserving one or two words. Figure 1-15 shows what a stack firame might 
look like during the execution of a simple procedure. 

If you are defining a procedure or fimction with parameters, dien space is 
allocated on the stack for the parameters before space is reserved for the 
local variables. For example, the procedure: 



PROCEDURE EXAMPLE(PARM1: INTEGER) ! 
MAR RsREAL; 

I: integer; 

BEGIN 

end; 



allocates word zero to PARMI, word one to R and word three to I. For 
additional information on variable alkx;ation in Apple Pascal see Chapters 
Two, Three and the Appendix. 



40 



stack Frame During the Execution of a Typical Procedure 



Procedure Simple; 
Var I,J,K:Integer; 

Lilnteger; 

R:Real; 

B:Boolean; 

Begin 
End; 



' ' I ' I ' I M ' I ' 1 
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Program Code Space 

Data Space for Global 
Procedures 

Procedure info for SIMPLE 



<- Stsck Pointer 



Figure 1-15 
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Turning Off the Range Checking Option 

Whenever you declare a variable that is not an array, the Apple Pascal com- 
piler emits code to reference the memory location associated with that var- 
iable. Whenever an array variable is referenced, the Pascal compiler must 
perform several steps to access the array element you specify. First, the base 
address of the array (the address of the first element of the array) is pushed 
onto the evaluation stack. If the array is a multi-dimensional array then a 
computation must be performed to convert the various indices into a single 
index. If the array is a one dimensional array the single dimension's value 
is used as the index into the array. The index is then multiplied by the size 
(in bytes) of an element of an array (i.e., multiplied by two for scalars, by 
four for reals, or by some other value for arrays of sets, records and other 
multi-word structures). Finally, the index is added to the base address to 
obtain the address of the element you're interested in accessing. 

Before blindly accessing the memory location specified by this computation, 
the Pascal rim-time system checks the index to make sure that it is a valid 
one, For examole. consider the short litde oroeram: 



program junk 5 

mar x:array [0.,5] of integer? 
i:integer; 

BEGIN 

I := 65 

K CI] := 20; 



END. 



Since the X array doesn't contain a sixth element this program makes litde 
sense. In practice, however, since variables are allocated sequentially in mem- 
ory, storing data into the sixth element of X is the same thing as storing 
data into I (see Figure 1-16). To prevent little disasters like this from occur- 
ring, the Apple Pascal compiler emits a special CHK p-code instruction 
whenever you access an array element to check the array index and make 
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svire it is in the specified bounds. If you've ever gotten a "value range error" 
then you've experienced this type of problem. While this range checking 
does prevent some unexpected problems nrom arising, uy turning the range 
checlang off and purposely accessing out of range array elements, you can 
perform some useful tricks. 

Luckily the range checking in Apple Pascal can be turned on or off at will 
using the two compiler options "{$R + }" and "{$R-}". The "{$R + }" option 
(which is the default when you begin compiling a program) turns the range 
checking on and the "{$R-}" option turns it off. By interspersing these two 
options in a program, you can selectively turn the range checking off for a 
few statements and then turn it back on after those statements. 



The Effect of a Memory Bounds Violation 



I := 6; 
X[6] := 20; 



Eh 



.+ 0. 

♦ 1 

♦ 2 

♦ 3 

+ 4 

♦ 5 
+ 6 













X [0] 


''-^ 


X [1] 


X [2] 


X [3] 


X [4] 


X [5] 









Procedure and return address 
information 

The address of the element of x 
being accessed is computed by 
AOORESS(X[0]) * INDEX. If the 
index is six; then the integer 
I is accessed. 



Figure 1-16 
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While the range checking is turned off, the Pascal run-time system will not 
detect an array index that is out of bounds. We can use this feature to jfiddle 
around with memory locations adjacent to an array. Listing 1-5 demon- 
strates the effects of turning off the range checking and accessing non- 
existent array elements. Listing 1-6 performs the same demonstration, except 
it shows you how to access parameter values by turning off the range checking. 

One rather useful task that the {$R-} option can be put to is determining 
the address of a structure in Apple Pascal. The ability to obtain the address 
of an object and reference that object strictly with pointers is very powerful. 
Any "C" programmer will immediately tell you one of Pascal's greatest 
shortcomings is its inability to obtain the address of some variable. By using 
the "{$R-}" option, however, it is possible to obtain the address of any 
structure in Pascal. Listings 1-7 and 1-8 present two possible alternatives 
for accomplising just that. Both programs rely on the fact that the "Y" 
parameter is passed to the ADDR function Iry reference (i.e., a VAR param- 
eter) . Whenever a parameter is passed by reference, the address of the param- 
eter, not the value of the parameter is passed to the fimction. Normally, 
references within the fimction would take this into accovmt and load the 
value pointed at by "Y" instead of the value contained in Y. By turning off 
the range checking and declaring an array of pointers immediately after the 
Y's declaration, you can obtain the address passed to ADDR by using an 
index of -1 for the array "P". 

If you're wondering what this could possibly be used for, I suggest you 
obtain a copy of a "C" language programming manual. The "C" program- 
ming language relies heavily on the use of pointers and almost any "C" 
programming tutorial will spend a lot of time discussing how to use point- 
ers. There's not enough space in this book to properly treat pointers so I 
will bow out gracefully and leave this function to other authors. 



When Not to Pull Tricks 

In this chapter I've described various techniques for accomplishing certain 
tricks by mis-using Apple Pascal. Nine times out often there will be a better 
way to accomplish a given task than to use the tricks presented here. These 
tricks were intended to be used that small 10% of the time when Pascal 
doesn't offer any alternatives. Program listing 1-9 demonstrates some alter- 
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natives to the tricks presented in this chapter. Mind you, the techniques in 
listing 1.9 are stiil tricks and in many cases they are still somewhat imple- 
mentation dependent, but in most cases they are much more portable and 
more acceptable to the programming community at large. 

Any time you use a trick the program becomes that much harder to under- 
stand. Maintaining programs using the programming techniques presented 
in this chapter is much more difficult than maintaining programs using 
standard Pascal constructs. If you know 6502 assembly language you're 
probably better off implementing many of the solutions presented here in 
assembly language rather than using Pascal to implement them. At least 
when reading an assembly language listing you're prepared for program- 
ming tricks. The problem with incorporating the tricks directiy into Pascal 
is diat Pascal's structure may hide the fact that you're performing a trick. 
Which brings up the last but most important issue: if you use a program- 
ming trick in Pascal make sure that you comment it well. Always state that 
tricky code follows (this puts out the red flag). Always explain exacdy what's 
going on so that later you, or someone else, can figure out exactiy what you 
did. An undocumented program containing these programming tricks will 
be hard to maintain later on. 
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Listing 1-1 



(* *) 

(* Program listing 1-1: Normal way to handle hex output roatine. *) 
(* *) 



program TESTPRIHEX; 



procedure HOHEX (I : INTEGER) ; 
var J: INTEIGER; 

WASNBGiBOOiEaN; 

CHRS: packed array [0..3] of char; 

HCR: packed array [0..15] of char; 



begin 



HCR := ' 0123 4567 89ABCDEr'; 
WASNEX3 := I < 0; 

if WfiSNEXS then I := I + 32767 + 1; 

for J := 3 downto do begin 

CHRS [J] := HCR [ (I HDD 16) ]; 

I s= I DFv' 16; 

end; 

if WASNEG then CHRS [0] := CHR( ORD(CHES [01) + 8); 

if CHRS [0] > '9' then CHRS [0] := CHR( ORD(CHRS [01) + 7); 

write (chrs) ; 

aid; { HmJEX } 

begin {MAIN} 

writeln; 

prthex(25); 

writeln; 

prthex(255); 

writeln; 

prthex(-2); 

writeln; 

prthex(-l) ; 

writeln; 

prthex(-512); 

writeln; 

end. 
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Listing 1-2 



(* *) 

(* Prograni listing 1-2: Tricky form of hexadecinal output routine. *) 
(* *) 



prograni TESTPROHEX; 



type NIBBLE = 0..15; 

TRICK = record case BCXXEftN of 



FALSE : (I: INTEGER); 

TRUE :(N:packed array [0..3] of NIBBLE); 

END; 

var HEXSIR: packed array [0..15] of char; 

procedure IKTHEX (I: INTEGER); 
var A:1RICK; 
J:IinEGER; 

begin 

A.I := I; {Move I into special variable) 
for J := 3 downto do 

WRITE ( HEXSIk [ A.iSi [jj j); 

end; { PROTEX } 

begin {MAIN} 

HEXSIR := ' 0123 4567 89AB(DEF'; 

writeln; 

prthex(25}; 

writeln; 

prthex(255); 

writeln; 

prthex(-2) ; 

writeln; 

prthex(-l) ; 

writeln; 

prthex(-512); 

writeln; 

end. 
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Listing 1-3 



(* *) 

(* Listing 1.3: This short program demaistrates how you can de- *) 

(* termine the address of the heap pointer, the stack pointer, and *) 

(* the amount of user space available. All values confuted are in *) 

(* words, so you must multiply ty two to get byte addresses. *) 

(* *) 

(********************************************************************) 

JSDGRflM HEMORY_AVAILABLE; 

TYPE IRIX = RECCM) CASE BOOLEAN OF 

•mJE : (I: INTEGER); 
FALSE :(P:'INTBGJR) ; 

END; 



VAR I:INTEGER; 
X:1RIX; 

BEGIN 

I := HEMAVAIL; 

NEW(X.P); 

WRITEm( "HEAP POINTER: ' ,X. I) ; 

WRITELNC "STACK POINTER: ' ,X.I+I) ; 

WRITELN ( ■ MEJCRY AVAILABLE : ' , I ) ; 



END. 
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Listing 1-4 



(* *) 

(* Listing 1.4: This program reads the *) 

(* isle's keyboard directly by peeking *) 

(* at locatiai $C000 and poking at loc- *) 

(* atim $C010. *) 

(* *) 

(********************************************) 

program listing_l_4; 

type chrdata = padced array [0..0] of 0..255; 
magic = record case boolean of 



FALSE: ( data:"CHREfiTA); 
TEttJE ;( adrs: integer); 



end; 



var I :INTEGHl; 

PAC :PACKED ARRAY [0..79] OF CHAR; 

kbd :magic; 

kbdstrb:inagic; 

begin 

kbd. adrs := -16384; (* $C000 IN DEaWAL *) 
KBDSTRB.ADRS := -16368; (* $C010 IN DECIMAL *) 
I := 0; 

FILLCHAR{PAC,80,' '); 
repeat 

(* WAIT UNTIL A KEY IS PRESSED *) 

vMle (kbd. data" CO] < 128) do; 

IF (I < 80) AND (KBD.DATA" [0] <> 141) 
1HEN PAC [I] := OJRCKBD.DATA" [0]); 

I := I+l; 

(* CLEAR 1HE KEYBCftRD STSCBE *) 

kbdstrb.data" [0] := 0; 
UNTIL KBD.DATA" [0] =13; (* RETURN *) 
WRITELNC 'THE STRING WAS: ' ,EAC) ; 
END. 
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Listing 1-5 

(* *) 

(* Listing 1.5: accessing differait vars *) 
(* by turning the range checking off. *) 
(* *) 

(******************************************) 

program testiJLjnirws; 

VHl y:integer; 

x: array [0..0] of integer; 

begin 

y := 25; 

writelnCY, at point 1, contains ',y); 

{SR-} 

X [-1] := 10; 

{5R+} 

writelnCY, at point 2, contains ', y) ; 

end. 
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Listing 1-6 

(* *) 

(* Listing 1.6: accessing different vars *) 
(* by turning the range checking off. *) 
(* *) 

(******************************************) 

program tstparms; 

procedure test_ILininus; 

VAR y:integer; 

x: array [0..0] of integer; 

begin 

y := 25; 

writelnCY, at point 1, ccsitains ',y); 

{SR-} 

X [-1] := 10; 

{SR+} 

writelnCY, at point 2, contains ' , y) ; 

∋ 

begin 

test_Rjninus ; 

end. 
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Listing 1-7 



(Irk********************************************************************) 
(* *) 

(* LISTINS 1.7: Hew to (Atain the address of an array in Pascal. *) 

(* *) 

(* This program demonstrates the AESJR functicxi, a functicxi that *) 

(* when passed and array returns the address in memory of that array *) 
(* *) 

{**********************************************************************) 

PBDGRftM TEST; 

TYPE PACKn)J«RAY_OF_CHARS = PACKED ARRAY [0..7] OF CEJAR; 
PAC_POINTER = "PAaCEI)JVRRAt.OF_CHARS; 

ARRAY_CF_EACPI3?S = ARRAY [0,,03 OF PAQ_POI!mER; 

VAR X:PAC3(ED_ARRAy_C»'_CHARS; (* Array that we wish to obtain the address of. *) 
Z:PAC_POINTER^ (* Pointer that will be set to the address of X *) 

P:ARRAy_Cf_EACPmS; (* Dummy required in the NSDR function list. *) 

(******************************************************) 

(* *) 

(* ADDR must be passed two parameters, the array *) 

(* that you're interested in finding the address of *) 

(* and a Aminy parameter that is an array [0..0] *) 

(* of pointers. The second array's type must be a *) 

(* pointer to the same type as the first array. *) 

(* The function value must be a pointer to the same *) 

(* type as the parameter. *) 

(* *) 

(******************************************************) 

FUNCTICW AI»3R(VSR Y:PACKED_AREAy_OF_CHARS; 

P:ARRAYi.OF_iRCPERS) :PAC_K)It?rER; 
BEGIN 

(*************************************************************) 
(* *) 

(* The following bizarre code turns off the ccmpiler range *) 
(* checking so that a programming trick can be performed. *) 
(* By accessing array element P [-1] the functiai obtains *) 
(* the word on the stack just prior to the P [0] element. *) 
(* This corresponds to the address of the Y parameter *) 
(* (since Y was passed by reference) haice the address of *) 
(* the first paramenter is obtained in this fashion. *) 
(* *) 

(*************************************************************) 

{$R-} 

ADDR := P £-1] ; 
{$R+} 
£M); 
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Listing 1-7 (continued) 

BEGIN 

(* Initialize X to all blanks and print it *) 

FIIIiCHAR(X,8,' •); 

WRITELNC "The X array should contain blanks : " ' ,X, " " ) j 

(* Get the address of the X array and place it in Z *) 
Z := ACOR(X,P) ; 



(* Store stuff into the array pointed at by Z. Since Z points *) 
(* at the X array, this stores data into X. *) 



z" 


[0] 


= 'A' 


z* 


[1] 


= -B' 


z* 


[2] 


= 'C 


z- 


[3] 


= 'D' 


%^ 


[4] 


= >E' 


z" 


[5] 


- ip' 


%'• 


[6] 


= 'G' 


z^ 


[7] 


= 'H' 



(* Print X to verify that storing data into the array pointed at by *) 
(* Z stores data into X (since Z points at X) *) 



WRITEmCNow the array contains: 



r Y 1 1 ? n . 



END. 
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Listing 1-8 



(* *) 

(* LISTING 1.8: Hew to Certain the address of an array in Pascal. *) 

(* *) 

(* This program demonstrates the WDR functiai, a functicai that *) 

(* whai passed and array returns the address in memory of that array *) 

(* *) 

(Irklt************************************************^******************) 

PROGRAM TEST; 

TXPE PACKED_ARRAy_OP_CHARS = PACKED ARRAY [0..7] OF CEJAR; 
PAC_POINTER = "ERCKEI>_ARRASHDP_CHARS; 

AKRAX_OF_PACFTRS = ARRAY ro„0] OF PAC1.POINTER; 

VAR X:PACKHJ_ARSAY_CF_CHH?S; (* Array that we wish to ctotain the address of. *) 
Z:PAC_POINTER; (* Pointer that will be set to the address of X *) 

(****************************************************** J 
(* *) 

(* ADDR must be passed the array that you're inter- *) 
(* ested in finding the address of. *) 

(* The function value must be a pointer to the same *) 
(* type as the parameter. *) 

(* *) 

{******************************************************) 

FONCnCf; AEDR(VAR Y:PACK3>_AREAY_CF_CH«$S) ;PAC_POISTER; 
VAR P : AREAY_OF_EACFTRS; 

BECIN 

(*************************************************************) 
(* *) 

(* The follcwing bizarre code turns off the compiler range *) 
(* checking so that a programming trick can be performed. *) 
(* By accessing array element P [-1] the function obtains *) 
(* the word on the stack just prior to the P [0] elanent. *) 
(* This corresponds to the address of the Y parameter *) 
(* (since Y was passed by referaice) hence the address of *) 
(* the first paramenter is obtained in this fashion. *) 
(* *) 

(************************************************************* J 

{$R-} 

AI»R := P [-1] ; 

iSRt-} _ _ , 

Qffi); 
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Listing 1-8 (continued) 

BEGIN 

(* Initialize X to all blanks and print it *) 

FII1XBAR(X,8,' '); 

WRTTEIMC "The X array should contain blanks: ' " ,X, " ") ; 

(* Get the address of the X array and place it in Z *) 
Z := AI»R(X) ; 

(* Store stuff into the array pointed at by Z. Since Z points *) 
(* at the X array, this stores data into X. *) 



z" 


[0] 


= 


'A' 


z' 


[1] 


= 


■B' 


z" 


[2] 


= 


'C 


z" 


[3] 


= 


'D' 


z' 


[4] 


= 


'E' 


z" 


[5] 


= 


ipi 


z" 


[61 


= 


■G' 


z- 


[7] 


= 


'H' 



(* Print X to verify that storing data into the array pointed at by *) 
(* Z stores data into X (since Z points at X) *) 

WE?ITEIJJ( 'Now the array contains: " ' ,X, " " ) ; 



mD. 
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Listing 1-9 



(* *) 

(* EROGRBM LISTIN3 1.9: Alternate ways of per- *) 
(* forming tricks in i^le Pascal. *) 

(* *) 

I***************************************************) 

EROGRflM LISTrNGJL_9; 
VBR I,J,K:INTEGER; 

(* *) 

(* clusive-or of the two integer parameters *) 

(* passed to it. *) 

(* *) 

(* Note: the other primitive logical operations*) 

(* (AND, OR, and NOT) can be sythesized using *) 

(* the AND, OR, and NOT operators. *) 

(* *) 
(************************************************■) 

FUNCTIOJ XDR(A,B:INTBGEE) :INTElGm; 
BEGIN 

(* The "odd" functicn is a type transfer finction, it lets *) 

(* you treat an integer value as a ixiolean value. The ord *) 

(* finction does just the opposite, it lets you treat any *) 

(* scalar value as an integer. *) 

XOR := ord( (NOT (odd(A) AND odd(B))) and (odd(A) OR odd(B)) ) ; 
END; {* XOR *) 
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Listing 1-9 (continued) 

begin 

(* Demaistratiai of logical operations in Apple Pascal *) 



(* Logically AND two integer values *) 
(* The following code places the *) 
(* logical AND of the two integers *) 
(* J and K into the integer I. *) 
(* The CM) functicn lets you treat *) 
(* an integer value as though it *) 
(* were a boolean value. A call *) 
(* to the OCD function doesn't gai- *) 
(* erate any code, it simply relaxes*) 
(* the ;^le Pascal compiler's type *) 
(* checking monentarially . *) 
(* The ORD functicxi lets you treat *) 
(* the resulting boolean value as *) 
(* though it were integer. *) 



I := ORD ( a»(J) AND OIX)(K) ) ; 



(* Logical CR functicat- see above *) 
(* for details. *) 

I := ORD ( CroCJ) OR OCDlK) ); 



(* Logical negation function *) 

I := CRD { NOT (CKDCJ)) ); 

end. 



58 



J 



2 

Improving the Performance 
Programs of Apple Pascal 



Overview 

Although Apple Pascal is a semi-compiled language there are times when it 
could benefit from a boost in execution speed. And even though Apple 
Pascal generates compact p-code, it is an axiom of computing that a program 
will always take at least one more byte than is available to the programmer. 
This section describes several techniques that can be used to increase per- 
formance and shrink the size of a Pascal program. 

Before attempting to improve the performance of a program it is imperative 
that the operation of the Pascal p-machine is understood. Before reading 
this section read pages 223-264 in the Apple Pascal Operating System's 
manual to familiarize yourself with the terms and mnemonics presented in 
this section. 

Before discussing how to improve the performance of an Apple Pascal pro- 
gram it would be wise to point out exacdy what needs improvement. Tra- 
ditionally compiled program performance has been divided into two cate- 
gories: the speed of the compiled package and the amoimt of code generated 
for the compiled program. In general, a given program can be made to run 
fester ^ the espaise of a larger €odefikaiKlk<Dan4)e shrunk somewhat at 
the expense of execution speed. Luckily, the structure of the Apple Pascal 
system often allows us to speed up and shrink the program at the same time. 
Obviously there are thousands of ways to optimize a program in one fashion 
or another. Most techniques are based on using better algorithms. Such 
techniques are beyond the scope of this section. Instead, this section will 
concentrate mostiy on mechanical optimizations which do not require much 
information about the algorithms in use. 
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General Information About the UCSD p-Machine 



The UCSD p-Machine version II.O (upon which Apple Pascal is based) was 
designed so tiiat the p-code generated by compiling the Pascal operating 
system was minimized. The rationale behind optimizing for the operating 
system was that the operating system must always be in memory. By making 
the operating system as small as possible the designers maximized the amount 
of user memory. Furthermore, the operating system contains the kind of 
code often foimd in user programs so optimizing the system considering 
the operating system to be a typical program also provides optimization 
for user programs (although this hypothesis is only partially true). In gen- 
eral, everything that could be done to shrink the size of the operating system 
in memory was done. (Historical note: Actually UCSD's hands were tied 
after the introduction of the Western Digital p-Machine chip set. Due to 
an agreement with WD UCSD could not modify the p-machine, they had 
to remain compatible with the hardware version of the p-machine, Later, 
when Softech Microsystems took over the project, the p-machine was 
onfimized even ftirther for version IVO.") The whole kev to ootimizine a 
user program is to make it "look" a lot like the Pascal operating system. 
This doesn't mean the program has to be an operating system, rather the 
program should generate approximately the same frequency as the various 
p-codes emitted for the operating system. 



Tools Required for Optimization 



If you are serious about shortening and speeding up your programs you 
will need a couple of tools. The most important tool is a p-code disassem- 
bler. Such a program is available from ABT in Saratoga, Ca. ABTs Pascal 
Tools II package contains five programs in addition to the p-code disassem- 
bler. Few our purposes, however, the p-code disassembler is well worth the 
price of the package. More information on the Pascal Tools II package can 
be obtained directiy from ABT. The p-code disassembler (called DUMP- 
CODE) is self prompting and extremely easy to use. All you provide is the 
name of an output .TEXT file and the name of an input .CODE file. DUMP- 
CODE reads the .CODE file, disassembles it, and outputs the disassembled 
listing to the specified TEXT file. 
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Also available is Datamost's PDQ (Pascal Disk Qtility Program), which 
offers a symbolic p-Code disassembler/assembler. With this package you can 
disassemble a Pascal program into p-code assembhy language, modify it, 
and reassemble the program back into p-code machijie code. For those 
individuals who want to make modifications to existing programs, this may 
be the only way to go. 

The disassemblies listed in this manual were produced by Thomas Brennan's 
DECODE program. As this book goes to press I have no details on the 
commercial availability of this produa. 



Optimizing for Compactness 

Apple Pascal's performance, much Uke that of Applesoft and Integer BASIC, 
is affected by die placement of variable names within a program. Not only 
does the placement of variable definitions affect the speed of an executing 
program, it also affects the amount of p-code generated for the program. 
In particular, the first 16 words reserved in a procedure or program are 
treated differenriy from the remainder. Furthermore, the first 16 words of 
variables defined in a program (the first 16 words of global variables) are 
treated specially. By taking advantage of this fact you can both reduce the 
amount of code generated for your program and speed it up. 

To understand how the judicious placement of variables can affect the size 
and speed of a program look at pages 230 and 231 of the Apple Pascal 
Operating System's Manual. These two pages describe the p-codes used for 
loading and storing data. Loading and storing data (especially loading data) 
are the most frequently used instructions in any program. With this in mind 
the UCSD p-machine was designed with 32 one-byte instructions that allow 
immediate access to the first 16 words of data in the currently activated 
procedure. Access to the first 16 words of data in die main procedure is 
also providai. Loading such data is accomplished with the SLDL (short 
load local) and SLDO (short load global) instructions. 

Since each scalar variable (i.e., INTEGER, CHAR, BOOLEAN, or enum- 
erated) requires one word of storage you have room for exactly 16 scalar 
variables within a procedure in order to take advantage of these special load 
instructions. REAL type variables require two words of storage and array 
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variables require even more. Therefore you should avoid declaring arrays 
and REAL variables at the beginning of a procedure. Variables declared 
within the same statement are allocated bachpards. That is, if you have a 
declaration of the form: 



I jJ»K:INTEGER! 



space is first allocated for K, then J, then I (See Figure 2-1). When attempt- 
ing to optimize a procedure by using the technique being described you 
should never declare more than one variable per statement. This can cause 
a few gotcha's to sneak up on you if you're not careful. Instead, declare each 
variable in a separate statement, e.g.: 



I: INTEGER? 
Js INTEGER ; 
K: INTEGER? 



T 


•1 


K: INTEGER" 




K 








J 








I 


w 







(high memory) 



(low memory) 



Note that space is first allocated for K, then J, 
and finally I. 



Figure 2-1 
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In order to optimize a program to make it as compact as possible, you should 
declare the most-used scalar variables within a procedure as the first 16 
scalar variables. This will allow the Apple Pascal compiler to ''enerate one- 
byte opcodes to load these variables instead of the two or three-1)yte opcodes 
normally required. It's very easy to determine which variables are used the 
most. Simply run the CROSSREF program found on the AppleS : diskette 
and it will print out a table of all the variables used within a program and 
tiie firequency of their use. To use the CROSSREF program you should 
strip out all die comments (die CROSSREF program isn't smart enough 
to do this for you) and isolate the procedure or function you wish to optim- 
ize. Do not run CROSSREF on an entire program as it will print every 
occurrence of a variable found anywhere in a program. You don't want to 
print the occurrences of the variable I in the next procedure when optim- 
izing the current procedure. Once you've isolated the procedure you wish 
to optimize and have stripped out the comments, use CROSSREF to list 
out the variables and their iirequencies. With the exception of non-scalar 
variables (i.e., REALs, SETs, RECORDs, and ARRAYs) you should declare 
all (scalar) variables in order of decreasing frequency. At die top of die 
procedure the most-used variable should be declared first, the second most- 
used variable declared second, etc. . This will shorten die program up some- 
what and even speed things up a Httie bit. If you have less tiian 16 scalar 
variables tfiey should all be declared before any non-scalar variables are 
defined. REALS and otiier non-scalar variables cannot take advantage of 
the SLDL and SLDO instructions so declaring them ahead of a scalar 
variable won't buy you anything and, in fact, it may hurt you. 

Before concluding the discussion on the importance of the first 16 scalar 
variables, it should be pointed out tiiat the parameters to a function or 
procedure count as elements of die first 16 words of storage. So when 
optimizing for compactoess you should avoid passing rarely used data in 
die parameter list (use a global variable instead) and avoid passing non- 
scalar variables. Furthermore, passing parameter data by reference caises a 
lot of code to be generated for each occurence of die pass by reference 
variable. If you must use die pass by reference technique, you should copy 
the data into a local variable (hopefully one tiiat occupies one of the first 
16 words of storage), use die data, and then store the data kept in local 
storage back into die pass by reference variable before exiting die procedure 
or function. It should also be pointed out that parameters on the stack are 
duplicated when a procedure is invoked. This means if you're running out 



63 



of memory at run-time (i.e., you keep getting stack overflows) you should 
attempt to re-code the program using as few parameters as possible. This 
is especially true if you are using recursive procedures and fiinctions. 

Apple Pascal emits two-byte opcodes for loads and stores of data whose 
offset into the current procedure is in the range 0..127 words (with the 
exception of loading one of the first 16 words as described above). A three- 
byte opcode is required to access beyond the 127th word of storage. Since 
scalars, REALS, SETS, and RECORD variables can all take advantage of 
the two-byte opcodes, you should consult the cross-reference listing and 
place the most-often used variables next in the declarations. Just remember, 
ARRAY, RECORD, and SET variables eat up lots of memory and can 
severely limit the number of variables so defined. An array variable may be 
accessed twice as often as the nearest scalar or REAL variable, but if the 
array is very large it won't let you take advantage of the two-byte opcodes 
for any other variables. And the SUM of the occurrences of all the other 
variables may well be larger than the number of occurrences of the array 
variable in question. To maximize the code usage you should use the 
CROSSBJEF and DIIMPPCXDDE programs considerably in order to 'Tione" 
your program. 

Accessing only the variables in the current procedure and in the outermost 
procedure (i.e., the program) will produce the smallest possible code. Accessing 
intermediate variables (global variables which are not defined in the main 
program) is one of the most inefficient methods (both in terms of speed 
and compacmess) for accessing data in the Apple Pascal system. Accessing 
intermediate variables always takes at least three bytes and may even take 
four. Accessing intermediate variables should be avoided whenever possible. 



Optimizing REAL Variable Accesses 

REAL variables represent a real problem (pardon die pun) . When assigning 
a constant to a REAL variable there are three methods you can employ: 

1: Standard assiSnmentf R : = 2.35 

2: Integer constant* R : = 45 

3: Variable assiSnmentt R : = RCONST! 
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(The last trick is probably employed by the seasoned Applesoft programmer 
who thinks he can speed things up by storing often-iised constants in a 
variable and accessing the variable instead of the constant.) The first method 
uses up ten bytes of storage and probably executes the fastest of the three. 
The second method (using an integer constant) requires only six bytes, but 
is, by far, the slowest of the three methods. The last method requires only 
eight bytes and probably executes only a litde slower than the first version. 
Note that if you use the last version, you really don't save any memory 
unless you make at least six assignments using the RCONST variable. 
Remember, you wiU have to use the first method to initialize the RCONST 
variable which takes ten bytes. Since you only save two bytes using the third 
method, it will take five accesses of RCONST in order to break even, six 
accesses before you are saving anything. Since you rarely use the same con- 
stant six times in any given procedure you should almost never use the third 
method. If you wish to reduce the amount of code generated (and you are 
storing an integer constant into a real varible) use the second method. If 
you are optimizing for speed (or need to store a real value with a fractional 
part) you should use the first method. 

Optimizing String Accesses 

The most important optimization you can make regarding a string is to 
make sure you do not declare the string to be any longer than it needs to 
be. The default length is 80 characters and this is almost always longer than 
necessary. By carefiil research you can probably discover the maximum string 
length required for a given variable. You're only wasting memory if you 
declare a string longer than it needs to be. On the other hand, do make sure 
that the string is long enough to handle any requirements. If it isn't, a run- 
time error wiU occur. In general, if you are reading a string from the console 
or some other device you should make sure that you have plenty of space 
reserved in case the input is crazy. But if the string is only used internally 
(which means you have control over the data stored in it) you needn't 
allocate any more space than is absolutely necessary. 

One of the biggest string optimizations you can perform is to make sure 
you do not duplicate a string constant an}'where. This problem occurs quite 
firequendy in WRITELN statements, e.g.: 

WRITELN('ThB uariable I has the waluer'tl); 
WRITELN('The variable J has the value!'»J); 
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These statements could be converted to: 



THEMAR ;= 'The 
HASUAL := 'Has the 
WRITELNdHEVAR. 'I ' »HASUAL»I) i 
WRITELNdHEyAR . 'J' »HASVAL tJ) ! 



Using this technique will save you quite a bit of code. Note that THEVAR 
should be a string of maximum length 13 characters (since it will never be 
longer than 13 characters) and the string HASVAL should be defined to 
have a maximum length of 14 characters. 

Optimizing Array and Subrange Accesses 

One of the largest optimizations you can make to a large program is also 
the easiest. It is also the most dangerous. The Apple Pascal compiler gen- 
erates a lot of code every time an array element is accessed. In addition to 
generating the code required to access the array element, Apple Pascal also 
emits a considerable amount of code that checks the array index (at run- 
time) to make sure it is within the range declared. The generation of this 
extra code can be turned offusing the (*$R-*) compiler option. This simple 
statement can reduce a program's code by as much as 20% and will increase 
its speed noticably. This option, when placed at the front of a debused 
program, can drastically improve the memory/speed situation. However, 
there's no such thing as a free lunch . . . 

When you turn the RANGECHECK option off, you are promising the 
Pascal compiler that you will never access an array element that 'just aint 
there'. If you do, strange things will happen to the program, the best of 'em 
being the variables in your program start taking on mysterious values. At 
worst the system will hang, or may arbitrarily start writing data to the disk. 
If you turn off the RANGECHECK option, make sure that your program 
is fiilly debugged and that you don't get any "value range errors", because 
now the system won't be nice enough to report it. 

One of the nice things about the RANGECHECK option is that it can be 
turned on and off selectively with the (*$R-I-*) and (*$R-*) options 
respectively. That means you can turn the range checking off for a section 
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of code where you're absolutely sure that no bounds errors occur and turn 
it back on when you're not sure a bounds error won't occur. Incidently, the 
bounds checking is used in several places in addition to arrav bounds check- 
ing. For example, all string accesses use the RANGECHECK mechanism, 
as does any usage of a user-defined scalar variable (such as a subrange). The 
(*$R-*) option can speed these accesses up as well. 

Optimizing I/O Instructions 

After every call to an I/O routine the Apple Pascal compiler emits a call to 
the lO — EEJROPv routine that checks to see if an I/O error occurred (aborting 
if one did). While this is a fairly important function for input and peripheral 
I/O, it is an absolute waste for output directed to the console device, since 
an error will never be returned by such a device. Since the output statements 
WRITE and WRTTELN make up a large percentage of statements in a 

Pascal program, eliminating the unnecessary calls to lO ERROR can 

save an quite a bit of memory. 

To turn the I/O checking off use die (*$I - *) compiler option. To ram the 
I/O checking back on use the (*$I -I- *) option. These options are messages 
to the compiler itself and no code is generated for them (the same is true 
for the RANGECHECK options). In general, it is a wise idea to leave the 
I/O checking on when performing input or output to a file as you have no 
control over the data being input and you can't be sure that when you output 
to some device an error won't be returned. Of course if you are sure, you 
can save a few bytes by leaving the I/O checking off; but an ounce of 
prevention . . . 

Optimizing IF and CASE Statements 

As is often pointed out in literature on the Pascal language, a CASE state- 
ment of the form: 

CASE I OF 

<yALl>:STMTl I 
<MAL2>:STMT2; 
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<VALn>:STMTn 
END 



performs the same function as the statments: 



IF I=<yALl> THEN STMTl 
ELSE IF I=<yAL2> THEN STMT2 



ELSE IF I=<yALn> THEN STMTn ! 



Despite the fact that the action performed by these two statements is the 
same, the code generated is completely dififerent. As it turns out, if you wish 
to compare a variable against several constants, the CASE statement is usu- 
ally the faster of the two. Also, less code is generated for the case statement 
prmndin^ there are more than four cases. Four cases is the break-even point 
and if tiiere are fewer tiian four cases the IF.. ELSE IF statement generates 
less code. The CASE statement executes faster than the IF.. ELSE IF state- 
ment except tor the tnvial case where only one comparison is made. In 
general, if you want the code to rim faster use the CASE statement. If you 
want to' save space, use the IF statement if there are fewer than four cases, 
use the CASE statement if tiiere are greater than (or equal to) four cases. 

There is one problem associated with the use of the CASE statement. It is 
only optimal if the case values are contiguous. If you have two case values 
of one and 124, an enormous amount of code is generated. In fact, 124 
bytes of table data is generated on top of the instructions required for the 
CASE statement itself. As a general rule of tiiumb, tiie Apple Pascal compUer 
takes the smallest case value and the largest case value and creates a table 
whose length is equal to the difierence of these two values. Obviously if 
you have some entries that are spaced quite a bit apart you should use the 
IF. .THEN statement if you wish to save code. The CASE statement doesn't 
execute slower if tiie case values are spaced far apart, so if speed is your 
primary goal you should still use the CASE statement. 
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Using FILLCHAR to fnitilize Arrays 

I^ IT/'^-I-l gXXr^lr «^^»^>^ ^r^ ««^«^«<^ l«rv^ *>*^ /^•>«*/^-VT ^^-V rw£^t^^-\. vt.i'^i-v Al^.i-ki-a 1 ^**^a, ■.-n.A ^,1. .» 1.».^_. 

FOR I := TO <AR¥SIZE> DO ARY CI] := 0? 

This generates a lot of code and executes slowly. A much better approach is 
to use the built-in procedure FILLCIiAR to initialize the array to zero. 
FILLCHAR was intended to be used with strings and packed arrays of 
characters, but it doesn't perform any type checking on its operands so it 
can be used to set any data type structure to zero. 

To zero out an integer array you would use the statement: 

FILLCHAR(ARY»SIZEOF(ARY) fCHR(0) ) ! 

Note the CHR(O) parameter. FILLCHAR works only with characters so 
you will need to convert the value zero to the null character (whose character 
code value is zero) in order to use this procedure. 

In theory, the FILLCHAR procedure can be used with any data type declar- 
able in Apple Pascal (including arrays, sets, records, scalars, and combina- 
tions of these extended types). However, FILLCHAR should only be used 
with arrays of integers since storing zeros into sets, and records may produce 
strange results. Zeroing out a user defined scalar variable sets that variable 
to the value of the first element declared in that type (e.g., if COLORS = 
(RED, GREEN, BLUE, YELLOW) then zeroing out a variable of type 
COLORS sets it to RED). Zeroing out a set variable produces the empty 
set. Zeroiag out a REAL variable sets each REAL element to zero. Zeroing 
out a record variable sets each element of the record to zero. 

As mentioned previously, FILLCHAR operates much faster and produces 
less code than die equivalent FOR loop. 
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Optimizing for Speed 

If you've got lots of room but your program doesn't run fast enough, you're 
probably more interested in speeding up your program than in shrinking 
it. Speeding a program up is, in many ways, much more diflScult than 
shrinking it. The techniques described in this section wiU help you improve 
the performance of your programs. There is, however, no substitute for a 
better algorithm. If you program is sorting data using the bubble sort don't 
expect the techniques presented here to noticeably improve the performance 
of your system. Improving the speed of a program requires a lot of carefiil 
thought and experimentation. The techniques presented here should be used 
only after you feel you have exhausted alternate algorithms as a source of 
performance improvement. 

The techniques presented here for improving the performance of an Apple 
Pascal program are quite similar to those used to shrink a program. In 
general, the less p-code you have to interpret, the faster the program will 
run. Since loads and stores are executed much more often than anything 
else, you should concentrate on optimizing these first. 

Dynamic vs. Static Optimization 

When we optimized for compactoess, a static frequency analysis was per- 
formed to determine the number of times a variable ocurred within a given 
procedure. A static frequency analysis is one in which the number of times 
a variable appears is counted. By declaring the variables that occurred most 
often early in the declaration list we were able to reduce the size of the code 
produced by the Apple Pascal compiler. Access to variables declared as one 
of the first 16 words of storage (and as one of the first 128 words of storage) 
not only requires less space, but executes faster as well. So one of the first 
things we can do to speed up a program is to make sure that the more 
frequently used variables are declared first. 

A simple static frequency analysis, like that done with the code optimization, 
will not suffice for speed optimization. Consider the short code sequence: 

X := 45? 
Y := X+2; 

z := k+y; 

A := Z+H+(Y*X)+>(#(Z-2*X) 5 
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B := X+Y+Z+ A DIM Kt 
K := X*BI 

FOR I := TO 2000 DO 

FOR J := TO 2000 DO M := 0i 

Although X, Y, Z, A, and B occur in the program much more often than I, 
J, or M they are not accessed as many times. For example, X is accessed 11 
times, Y is accessed four times, Z is accessed four times, and A and B are 
accessed twice. On the other hand, although they appear in the program 
only once, I is accessed 2001 times, and J and M are accessed a whopping 
4,004,000 times, yet they are accessed only once! The amount of time you 
would save by making sure that I, J, and M were declared as one of the first 
16 variables (as opposed to variables declared after the first 128 words of 
storage) would be measured in hours! 

Analyzing variable usage, as opposed to variable occurence, is known as 
dynamic frequency analysis. Obviously, dynamic frequency analysis is very 
hard to perform. In addition to loops, you have to worry about CASE 
statements, IE. THEN. .ELSE statements, parameter values passed to pro- 
cedures and fimctions, REPEAT. UNTIL and WHILE loops, and a whole 
gamut of other statements that tend to obscure the number of times a 
variable is accessed. To perform a dynamic frequency analysis, start with a 
static frequency analysis. Chances are, if a variable is used quite often it is 
also accessed the most during the execution of the program. So check out 
the most-often used variables first. 

Pay close attention to loops. In general, variable accesses that occur outside 
of loops aren't even worth worrying about. Improving the access time of 
such variables may not be noticeable. Don't forget, the FOR loop isn't the 
only loop construct available in Pascal— watch for REPEAT. UNTIL and 
WHILE loops as well. Nested loops, especially ones with a large range, are 
prime targets. Program segtriehtis Buried deep within nested loops should 
be scruntinized to make sure that variables within them sure the short form 
of the load and store instructions. Other forms of optimization (such as 
using REAL constants instead of integer contants when initializing a REAL 
variable) should be performed inside a loop as well. Hopefiilly you are smart 
enough to realize that all one-time initialization shoiild take place outside 
the range of a loop since initializing the variable each time the loop executes 
is a waste of time. 
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3 

Using LST Files to Debug and 
Optimize Pascal Programs 



The Apple Pascal compiler supports a special compile-time option that allows 
you to list a compiled program to a device along with other useful infor- 
mation. The "(*$L <fileid>*)" option accomplishes this. This compiler 
option sends a listing of the compiled program to the specified file. Although 
any arbitrary disk file or device may be used, I recommend you send all 
listings to the printer using the command: 



(**L PRINTER:*) 



This option should only be used after all the syntax errors have been removed 
from your program. 

The list option writes a listing of the program to the printer device along 
with five additional columns of information. The first column is the line 
number of the current line; the second column contains the segment number 
of the current procedure; the third column contains the procedure number; 
the fourth column contains the lex level; and the fifth column contains the 
current offset into the procedure. As it turns out this information is quite 
valuable, especially the segment, routine, and offset values. 

Program listing 3.1 is a example of a program compilation using the {$L 
PRINTER:} option. The first column in the listing is the line number. This 
information can be useful when editing a program within the editor. For 
example, if you are at the beginning of the file, you need only type "n<rm>" 
to position the cursor at line number n+ 1. To jump to an arbitrary line 
from any point in the program type "JBn<rm>" and the cursor will be 
positioned at the beginning of the desired line. 
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The second column of niimbers in listing 3.1 is the segment number. The 
typical user program is assigned to segment number one. If you use any 
SEGMENT PROCEDURES or FUNCTIONS widiin your Pascal pro- 
gram, each segment procedure will increase the segment number by one 
starting at segment number 7. Segment numbers 0, and 2-6 are reserved 
for use by the system. A maximum of seven segmented procedures (includ- 
ing the main program body, segment one) is available to the user. This 
means that segments one and 7 through 12 are available to the user. 

The third column in the listing is the procedure number. The value varies 
from one to a maximum of 127 (assuming you have 127 procedures declared 
within the current segment) for each segment procedure defined. If you will 
look at listing 3.1, lines 24-43, you will notice that procedure A has a 
procedure number of one and its subordinate B has a procedure number of 
two. Note that the main program also has a procedure number of one and 
procedure D also has a procedure number of two. The difference is that A 
and B are in segment seven while the main program and D are in segment 
one. So the segment number and the procedure number are used to uniquely 
identify any given procedure. 

The fourth column contains the lex level value. For the purposes of this 
discussion it is only important to realize that this column contains a "D" or 
a digit. If a "D" appears in this column then the offset value (in the fifth 
column) refers to a data offset. If a digit appears in this column then the 
value in the fifth column is a code offset. 

The fifth column contains a code or data oflfeet value. This magic number 
is the whole key to code optimization and debugging run-time errors in the 
Apple Pascal system. Whenever column four contains a "D", column five 
contains a data offset. This occurs in the variable declaration portion of the 
program. For example, if you look at lines 11 through 16 in listing 3.1 
you can see an example of data offsets in the listing. These values correspond 
to words of data allocated by the Pascal compiler. For example, the "3" 
appearing before the "LINTEGER;" declaration tells you that I occupies 
the third word of storage allocated in this block. Likewise the "5" before 
the "R:REAL;" declaration tells you that the variable R occupies the fifth 
word of storage allocated in this block. By looking at the next line you can 
tell how many words of storage were allocated. For example, at line 14 
(the line after the R declaration) the offset is seven. So R required two 
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words of storage. This data ofiset information is important because this is 
the easiest way to determine which variables lie in the first 16 words of 

sfnra2e._ ^vhirh Uf in the first 178 wrr»rHc r»f cfrvrqrT/* or.rl ^xrUi^U U^ k^^^^a 

This, of course, is important information if you're trying to optimize your 
program via variable accesses as mentioned in the previous sections. Notice 
that two words of storage are used up by the main program before any 
variables are allocated at all. This is due to the fact that two words of param- 
eter data is allocated for a main program (this corresponds to the 
INPUT,OUTPUT parameters in a standard Pascal program). This pre- 
allocation occurs only in the main program, normal procedures and func- 
tions begin allocating storage at word one. 

Although listing 3.1 doesn't provide any examples, parameters declared in 
a procedure or fimction are allocated before the local variables. So if you 
have a procedure definition of the form: 



PROCEDURE XXXd »J:INTEGER) 5 

MAR MfNsINTEGER; 

BEGIN 



ENDi 



then I and J will be allocated storage before M and N are. For this reason, 
you should be careful when defining procedures with lots of parameters if 
you are attempting to optimize for code compacmess. Another thing to 
consider is that parameters actually occupy twice the allocated storage on 
the stack. Parameter data is pushed onto the stack by the invoking routine 
and then this data is copied above the activation record once the program 
begins executii^. Bccajse of d^ duplication you i^Kwiki never pass«nittTay 
by value unless you have lots of room and don't mind the delay associated 
with copying the array data. In general, it would be better to pass the array 
by reference and copy it into a local array using the MOVELEFT routine. 
That way only one copy of the array would be maintained and the array 
would only have to be copied once (when passed by value the array has to 
be copied twice, once by the involdng routine when the array is pushed 
onto the stack and once when the procedure being called copies the array 
into its local data area. 
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When the value in the lex level column is a digit (as opposed to a "D") then 
the value in the offset column is a code offset instead of a data offset. The 
code offset value is the number of bytes emitted for the current procedure 
up to, but not including, the current line. This information has two practical 
uses: it can be used to compare two different program constructs to see 
which requires the least amoimt of memory, and it is quite useful when 
debugging Pascal run-time errors. 

To use the code offset when optimizing the object code produced is very 
easy. Simply compile a program using the old and new algorithms. To 
determine how much code a given line of Pascal generates simply subtract 
the offset on the next line from the offset on the line in question. This gives 
you the number of bytes generated by the line of Pascal source code. Obviously, 
the algorithm that produces the least amount of code is the most optimal 
in terms of code compactness. 

Debugging Run-time Errors 

Have vou ever eotten one of those uglv run-time errors of the form: 

<run-time messa3e> 

S»n P«n I«nn 

(press space to continue) 

If you're like most people you start inserting WRTTELN statements in order 
to pinpoint the line where the problem exists. There is a much easier solution 
to the problem of discovering the line that contains the error. The S#n, 
P#n, and I#nn values give the the segment number, procedure number and 
code offset where the error occurred. By looking on the program listing 
you can easily pinpoint the location of the infracting line. 

As an example, refer to listing 3.2. This program contains four lines, all of 
which have a run-time error on them. The first two lines have division by 
zero errors, the third line has a floating point run-time error, and the fourth 
line has a string overflow error. If you were to compile this program and 
run it you would get the error: 

Divide by Zero 

S«l P«l I«4 

(press space to continue) 
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This tells you that the error took place in segment number one, procedure 
number one, at code offset four. By looking at the listing at segment one, 
^i.jv.<,»^urc viiC, y\jij. iuiu oidL uic mic wiuui tuiicains code onset tour is line 
number 19 (actually it begins at code offset zero and continues through 
code offset six, therefore the desired location is contained on this line). By 
looking at the line ("I : = I DIV 0") you will notice that the reason we get 
a division by zero error is because, sure enough, there is a division by zero. 
If we correct this problem by dividing by one instead of zero we obtain the 
program shown in listing 3.3. If this program was compiled and executed, 
you would get the run-time error: 



Diuide by Zero 

S«l P«l I«20 

press space to continue 



By looking at the program listing you can see that the statement: 



R := R / 0.0 



is the one where the problem occurred. Obviously there is a division bv 
zero here, fixing it yields the program shown in listing 3.4. 

Upon compiling and executing the corrected program you get the run-time 
error message: 



Floating Pt, Error 
S»l P«l I«30 
Press Reset 

By consulting the program listings you will notice that this error is happen- 
ing at feie #21, 



I != TRUNC(3.3E5) ; 

The cause of this error is the fact that 330000 is too large to be converted 
to an integer. By fixing this problem we obtain the program shown in listing 
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When you compile and execute the program shown in listing 3.5 you get 
the run-time error message: 



St rin 3 Overflow 

S«l P«l I«B3 

Press space to Continue 



The problem here is the fact that the string "HELLO THERE HOW ARE 
YOU" is much too large to fit in a string variable that may contain a max- 
imum often characters. This is easily pinpointed by looking for code offset 
63 which occurs at line 22. 

Correcting this last problem by shortening the string yields the program 
shown in listing 3.6. This program compiles and runs correctly. 
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Listing 3-1 



1 


1 


1:D 


1 


{$L HOMER:} 


2 


1 


1:D 


1 






3 


1 


1:D 


1 


{** 


:************************************* 


4 


1 


1:D 


1 


(* 




5 


1 


1:D 


1 


(* 


LST file example: 


6 


1 


1:D 


1 


{* 




7 


1 


1:D 


1 


(** 


:************************************* 


8 


1 


1:D 


1 






9 


1 


1:D 


1 


program SBOitJjSSz^amiS} 


10 


1 


1:D 


3 






U 


1 


1:D 


3 


var 


I:integer; 


12 


1 


1:D 


4 




J : integer; 


13 


1 


1:D 


5 




R:real; 


14 


1 


1:D 


7 




X:arra!y [0..15] of integer; 


15 


1 


1:D 


23 




M: integer; 


16 


1 


1:D 


24 




S: string; 


17 


1 


1:D 


65 






18 


1 


1:D 


65 






19 


1 


1:D 


65 






20 


1 


1:D 


65 






21 


1 


1:D 


65 


(* 


Segmented procedures follow *) 


22 


1 


1:D 


65 






23 


1 


1:D 


65 






24 


7 


1:D 


1 




segmoit procedure A; 


25 


7 


1:D 


1 






26 


7 


1:D 


1 




var I: integer; 


27 


7 


1:D 


2 




Rsreal; 


28 


7 


IsD 


4 






29 


7 


1:D 


4 






30 


7 


2:D 


1 




procedure B; 


31 


7 


2:0 







begin 


32 


7 


2:0 









33 


7 


2:1 







I := 0; 


34 


7 


2:1 


4 






35 


7 


2:0 


4 




end; {B} 


36 


7 


2:0 


16 






37 


7 


2:0 


16 






38 


7 


1:0 







begin {A} 


39 


7 


1:0 









40 


7 


1:1 







B; 


41 


7 


1:1 


2 




R := 1.1; 


42 


7 


1:1 


12 






43 


7 


1:0 


12 




end; {A} 


44 


7 


1:0 


24 






45 


7 


1:0 


24 






46 


7 


1:0 


24 






47 


8 


1:D 


1 




segmeit procedure C; 


48 


8 


1:0 







begin 


49 


8 


1:0 









50' 


S" 


l':T 


b' 




A; 


51 


8 


1:1 


3 






52 


8 


1:0 


3 




end; {C} 


53 


8 


1:0 


16 






54 


8 


1:0 


16 






55 


8 


1:0 


16 







*) 
*) 
*) 
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Listing 3-1 (continued) 



56 


8 


1:0 


16 


(* Standard procedures follcw 


57 


8 


1:0 


16 






58 


8 


1:0 


16 






59 




2:D 


1 




procedure D; 


60 




2:D 


1 






61 




3:D 


1 




procedure E; 


62 




3:0 







begin 


63 




3:0 









64 




3:1 







I := 25; 


65 




3:1 


3 






66 




3:0 


3 




end; {E} 


67 




3:0 


16 






68 




2:0 







begin {D} 


69 




2:0 









70 




2:1 







E; 


71 




2:1 


2 




R := 2.6; 


72 




2:1 


12 






73 




2:0 


12 




end; {D} 


74 




2:0 


24 






75 




2:0 


24 






76 




2:0 


24 






77 




1:0 





begin 


{main} 


78 




1:0 









79 




1:1 







A; 


80 




1:1 


5 




C; 


81 




1:1 


8 




D; 


82 




1:1 


10 






{U 




1:0 


10 


end. 





Listing 3-2 



1 1 1:D 1 {$L HOOTER:} 

2 1 1:D 1 

4 1 1:D 1 (* *) 

5 1 1:D 1 (* Listing 3.2: Division by zero error #1. *) 

6 1 1:D 1 (* *) 

7 1 1:D 1 (****************************************************) 

8 1 1:D 1 

9 1 1:D 1 progrem BAElPROGRAM; 

10 1 1:D 3 

11 1 1:D 3 var I:integer; 

12 1 1:D 4 R:real; 

13 1 1:D 6 S:string [101; 

14 1 1:1) 12 

15 1 1:D 12 

16 1 1:D 12 

17 1 1:0 begin 

18 1 1:0 

19 1 1:1 I := I div 0; 

20 1 1:1 7 R := R/ 0.0; 

21 1 1:1 23 I := triaic (3.3E5); 

22 1 1:1 34 S := 'Hello there how are you?'; 

23 1 1:1 65 

24 1 1:0 65 aid. 
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Listing 3-3 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 



1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
IsD 
1:D 
1:D 
1:0 
1:0 
1:1 
1:1 
1:1 
1:1 
1:1 
1:0 



1 

1 

1 

1 

1 

1 

1 

1 

1 

3 

3 

4 

6 

12 

12 

12 







7 

23 

34 

65 

65 



{SL PRINTER:} 

(****************************************************) 

(* *) 

(* Listing 3.3: Division by zero error #2, *) 

(* *) 

(****************************************************) 

program BACLEROGRSM; 

var I:integer; 

R:real; 
S:string [10]; 



begin 



I := I div 1; 

R := R / 0.0; 

I := trunc (3.3E5); 

S := 'Hello there how are you?'; 



aid. 



Listing 3-4 



1 

2 
3 
4 
5 
6 
7 
8 
9 
10 
U 

13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 



1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
liD 
1:D 
1:D 
1:D 
1:D 
1:0 
1:0 
1:1 
1:1 
1:1 
1:1 
1:1 
1:0 



1 

1 

1 

1 

1 

1 

1 

1 

1 

3 

3 

4. 

6 

12 

12 

12 







7 

23 

34 

65 

65 



{$L PRIOTER:} 

(****************************************************) 

(* *) 

(* Listing 3.4: Floating point error. *) 

(* *) 

(tlili-k************************************************) 

program BfiD_PRDGRAM; 

var I : integer ; 
R:£eal; ^ 
S:string (103; 



begin 



I := I div 1; 

R := R / 0.1; 

I := trunc (3.3E5); 

S := 'Hello there hew are you?' 



aid. 
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Listing 3-5 



1 




1:D 


1 


{$L HmJ-l'tK:} 


2 




1:D 


1 






3 




1:D 


1 


(****** 


********************************* 


4 




1:D 


1 


(* 




5 




1:D 


1 


(* Listing 3.5: String overflew. 


6 




1:D 


1 


(* 




7 




1:D 


1 


(****** 


********************************* 


8 




1:D 


1 






9 




1:D 


1 


program 


BfiD_PROGKAM; 


10 




1:D 


3 






U 




1:D 


3 


var 


I: integer; 


12 




1:D 


4 




R:real; 


13 




1:D 


6 




S:string [101; 


14 




1:D 


12 






15 




1:D 


12 






16 




1:D 


12 






17 




1:0 





begin 




18 




1:0 









19 




1:1 







I := I div 1; 


20 




1:1 


7 




R := R / 0.1; 


21 




1:1 


23 




I := trunc (3.3); 


22 




1:1 


34 




S := 'Hello there hew are you?'; 


23 




1:1 


65 






24 




1:0 


65 


end. 





*) 
*) 
*) 



Listing 3-6 



1 1 1:D 1 {$L PRINTER:} 

2 1 1:D 1 

3 2. 1:D 1 (****************************************************) 

4 1 1:D 1 (* *) 

5 1 1:D 1 (* Listing 3.6: Working program. *) 

6 1 1:D 1 (* *) 

7 2 1:D 1 (****************************************************) 

8 1 1:D 1 

9 1 1:D 1 program BAD_EROGRfl«; 

10 1 1:D 3 

11 1 1:D 3 var I:integer; 

12 1 1:D 4 R:real; 

13 1 1:D 6 S:string [10]; 

14 1 1:D 12 

15 1 1:D 12 

16 1 1:D 12 

17 1 1:0 begin 

18 1 1:0 

19 1 1:1 I := I div 1; 

20 1 1:1 7 R := R / 0.1; 

21 1 1:1 23 I := trunc (3.3); 

22 1 1:1 34 S := 'Hello '; 

23 1 1:1 47 

24 1 1:0 47 eid. 



82 



J 



4 



Examining Compiler-Generated Code 



In the program listings that follow an attempt wiU be made to describe the 
code generated by the Pascal compiler for certain code segments. While the 
examples provided are certainly not all -inclusive (i.e., they do not Ust all 
possible code generation sequences) they are fairly representative and carefiil 
study may help you write better, shorter, and faster Pascal programs. 

With the exception of listing 4.19, all of the disassembled listings were 
produced with the DECODE p-code disassembler written by T. Brennan. 
Listing 4.19 was produced by the DUMPPCODE utility found on ABT's 
Pascal Tools 11 diskette. Alas, DECODE contained a bug and couldn't be 
used for this particular listing. 



Integer Variable Allocation 

Listing 4.1 demonstrates the code generated for integer variable was declared 
as one of the first 16 words (1), 127 words (J), and beyond (K) within the 
Apple Pascal program. The two p-code instructions at locations 0002 and 
()OOSiiandlr Ae assigmnenT *^: =^^^ 

value contained in 1 onto the top of the stack. Note that this instruction is 
only one byte long since I was declared as one of the first 16 words of 
storage in the system. The next instruction (SRO 3, store global) stores the 
TOS into 1. Unfortunately there is no short store global so this instruction 
must be at least two bytes long. Since the address of 1 is less than 128, the 
address following the SRO instruction is only one byte long and the entire 
instruction is two bytes long. 
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The p-code instructions at addresses 0005 and 0007 handle the assignment 
"J: = J". Note that both instructions are two bytes long since J was purposely 
declared so that it was not one of the first 16 words of storage used. For 
this reason, the LDO (load global) instead of SLDO instruction had to be 
used to load J onto the TOS. 

The p-code instructions at locations 0009 and OOOC handle the assignment 
"K: = K". In this case K is declared beyond the first 127 words of storage 
so a three byte instruction must be used. For more information on how the 
"BIG" parameter operates on the LDO and SRO instructions consult the 
chapter on p-Code instructions. The RBP instruction returns control to the 
Pascal operating system. 



Real Variable Accesses 

Listing 4.2 demonstrates the various loading and storing techniques employed 

0002, 0004, and OOOA are used to implement the Pascal statement ''R= 1.1;". 
The LAO instruction loads the address of R onto the stack. Later this 
address will be used to store the data on TOS into the variable. The next 
instruction (LDC) pushes the two-word constant 8C3FCDCC onto the 
evaluation stack. In case you haven't guessed, this is the floating point rep- 
resenttion for the value 1.1 The third instruction in this sequence (STM 2) 
stores the two words on the TOS into the variable pointed at by the address 
on NOS. The effect of these three instructions is to load the constant 1.1 
into the real variable R. 

The next four instructions (at addresses OOOC, OOOE,OOOF, and 0010)handle 
the assignment "S: =4;". The address of S is pushed onto the stack, the 
integer constant "4" is pushed onto the stack and converted to a floating 
point number, and finally the floating point value on TOS is stored in the 
variable S. 

The four instructions at addresses 0012, 0014, 0016, and 0018 load the 
addresses of R and S onto the stack (respectively) and then load the two- 
word datum contained within S and store the data in the real variable R. 
This handles the assignment "R: = S". 
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The next four instructions handle the "R: = - 1.1" assignment. Note tht 
this sequence of instructions is identical to that for the statement "R: = 1.1" 
exceot for the addition of the NGR instruction that nep-ates the valu'' ^n 
TOS after 1.1 is loaded. The RBP instruction at location 0025 returns 
contol to the Pascal operating system. 

Array Allocation 

Listings 4.3 and 4.4 show the code generated for identical programs using 
array accesses. Listing 4.3 shows the code generated with the {$R + } option 
set (the default condition). Listing 4.4 shows the code generated with the 
{$R-} option set. Since listing three is the more general case it will be 
desdribed. 

The instructions at locations 0002 and 0003 sstore "1" into the variable "J"- 
The LAO instruction at address 0005 loads the address of the first member 
of the array "I" onto the stack. The SLDC instruction at address 0007 loads 
the index into array I onto the stack. The instructions at addresses 0008, 
0009, and OOOA check this index to make sure that it is in the range 0..10. 
The IXA instruction at address OOOB adds TOS to NOS to compute the 
address of the desired element in the I array. 

The instructions at addresses 000F..001E handle the assignment ''R[0]: = 1.1". 
The address of the first element of R is pushed onto the stack followed by 
the desired index into the R array (zero). This index is checked to make 
sure it lies in the range 0..10 and then a pointer to the array element is 
computed by the execution of the IXA 2 instruction. The four-byte repre- 
sentation of "1.1" is pushed on the stack and then this data is stored into 
R[0] using the STM 2 instruction. 

The instructions between 0020 and 0030 handle the assignment "RQ] : = 1 . 1 ;" 
except the value contained m J is loacfed c«ito the stack instead of zero as 
the index into the array. 

The instructions at addresses 0032 through 003D handle the assignment 
"I[J]: =J;". The LAO instruction loads the address of the first element of 
the I array onto the stack. LDO 36 loads the value contained within J onto 
the stack and the following three instructions check to make sure that this 
value is in the range 0..10. The IXA instruction adds TOS to NOS which 
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creates a pointer to the array element in question. Finally, the value con- 
tained in J is loaded onto the stack and stored into the specified array 
element. 

Listing four shows the same program with the {$R - } option set. Note that 
considerably less code was generated since the two SLDC instructions and 
CHK instructions were not emitted in the code stream after each array 
access. 

Note: The DECODE program uses PUSH instead of SLDC but 

SLDC is the correct p-code convention. 

Set Operations 

Listings 4.5 and 4.6 show the type of code generated by the Apple Pascal 
compiler whenever set operations are encountered. Listing 4.5 shows the 
code generated when the sets being operated on fit into one word of storage. 
Listing 4.6 shows the code generated when the sets need more than one 
word of storage allocated to them. Since the latter case is the more general, 
it will be described fully. 

The set type SET OF LARGEI was declared so that it would exacdy require 
three words of storage (i.e., 48 bits). This short program shows three set 
assignments, set union, set difference, set intersection, and set inclusion. 
The instructions at addresses 0002.. 0007 handle the assignment "S: = [ ];". 
The LAO instruction at address 0002 loads the address of S onto the stack. 
The SLDC instruction at address 0004 loads the value for the empty set 
onto the TOS. The ADJ instruction loads an additional two bytes of zero 
onto TOS thus adjusting the data on TOS so that it occupies the same 
amount of space as does the set variable S. The STM instruction at address 
0007 stores the three words on TOS at the address previously pushed by 
the LAO instruction. This stores the empty set on TOS (three words) into 
the set variable S. 

The instructions at addresses P009..0011 handle the Pascal assignment 
"S: = [8,11];". The LAO instruction loads the address of S onto the stack, 
this address must be pushed for the STM instruction later on. The LDCI 
instruction pushes the data for the set [8,11] onto the stack. The SLDC 
instruction that follows pushes the number of words in the set of TOS (one) 
onto the stack. The ADJ instruction looks at the one on TOS and adjusts 
the set so that it occupies three words. This is accomplished by pushing two 
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zeroes onto the TOS. Finally, the STM instruction at address 0011 stores 
the three- word set on TOS into the set variable S. In a similar manner the 
instructions at addresses 001.^. .001 9 sfore the set rni intn thp cf-r ^r-^fiah^^ 
R. 

The instructions in the range 001B..002A handle the Pascal assignment 
"Q: = R+ S;". The LAO instruction at address OOIB loads the address of Q 
onto the stack so that the value of the set expression on the right hand side 
of the assignment statement can be stored in Q. The LAO, LDM, and SLDC 
instructions at addresses 001D..00211oad the set variable R onto TOS along 
with a length byte denoting the length of the set R. The instructions of 
addresses 0022..0026 push the set variable S onto the stack. The UNI 
instruction at address 0027 takes the set union of the two sets just pushed 
onto the stack. Once the set union is taken, the ADJ instruction is executed 
to make sure that the set on TOS is exactly three words long and then the 
resulting set is stored into Q using the STM instruction at address 002A. 

The instructions at 002C..003B perform exactly the same operation except 
that the set difference is taken instead of the set union. As before the address 
of Q is pushed onto the stack, R and S are pushed onto the stack, the set 
difference is taken, the set is adjusted to fit into three bytes, and the set on 
TOS is stored into the variable Q. 

The instructions in the range 003D..004C handle the Pascal assignment 
"Q: = R*S;". The code generated is identical to that generated for set union 
and set difference except the INT instruction (set intersection) is emitted 
in place of the UNI or DIF instructions. 

The p-code instructions at addresses 004E..0058 handle the two Pascal 
statements "I: = 2;" and "B: = I IN Q;". The SLDC 2 and SRO 13 instruc- 
tions handle the assignment to I. Next I is pushed onto the stack with the 
SLDO instruction. The LAO, LDM, and SLDC instruction sequence that 
follows pushes the set Q onto die stack. The INN instruction at address 
0057 checks to see if the scalar on NOS (I) is in die set on TOS (Q). The 
SRO instruction stores the Boolean result of this operation in the Boolean 
variable B. 
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Accessing Record Elements 

Listings 4.7 and 4.8 show the code generated for record element accesses. 
Listing 4.7 shows the code generated with the {$R + } option set and listing 
4.8 shows the code generated with the {$R-} option set. The only differ- 
ence between the two listings is the addition of several SLDC and CHK 
instructions whenever an array element is accessed. 

The instructions at addresses 0002..0019 handle the assignments to the 
elements of the M record. This code is identical to the code that would have 
been generated had each assignment been made to a separate variable. 

The code at addresses 001A..001E handles the record assignment "N: =M;''. 
The first LAO instruction loads the address of N onto the stack and the 
second LAO instruction loads the address of M onto the stack, the MOV 
instruction that follows moves eight words of data from the address on the 
TOS (M) to the data pointed at by the address on NOS (M). This transfers 
the data from the record M to the record N. 

The p-code instructions in the range 0020.. 0027 handle the Pascal assign- 
ment "L[0]: =M;". This section of code begins with a LAO instruction that 
loads the address of L onto the stack. The next two instructions load the 
index (zero) onto the stack, scale it appropriately, and add this index to the 
base address on the TOS. The LAO instruction at address 0025 loads the 
address of M onto the TOS and the MOV instruction at address 0027 
copies the data in M into the L[0] array element. The code from address 
0029 to 0030 performs essentially the same operation except that L[l] is 
loaded instead of L[0]. 



Accessing String Variables 

Listing 4.9 shows the code generated in response to some simple string 
operations. The instructions in the range 0002..0012 handle the assignment 
"S: = 'HELLO THERE';'' The LAO instruction at address 0002 loads the 
address of S onto the stack. The NOP at address 0004 is used to align the 
string that foUows on a word boundry. This is required by some 16-bit 
processors (including the LSI-II and 68000). The LSA instruction at address 
0005 pushes a pointer to the string that follows the LSA instruction. Finally, 
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the SAS instruction at address 0012 copies the string pointed at by the 
address on TOS into S (whose address is on NOS). 

The three instructions at addresses 0014, 0016, and 0018 handle the assign- 
ment "T: = S". The first two instructions load the addresses of T and S onto 
the stack and the SAS instruction that follows copies the data from the S 
string to the T string. 

The instructions at addresses OOIA.OOIF handle the nuU string assignment 
at line 1 7. Once again the interleaving NOP is there so that the string address 
pushed on the stack by the LSA instruction is an even value. Other than 
the fact that the string being assigned is empty, the code is identical to that 
generated by the first string assignment in the code stream. 

The instructions in the range 0021.. 0024 handle the character assignment 
"T: = 'A';". This code is quite a bit different from the assignments discussed 
so far, instead of issuing an LSA instruction, a SLDA instruction pushes 
65 (the ASCII code for an A') onto the stack. The SAS instruction looks 
at the high order byte of the source string address on the TOS. If it is zero 
(pointers never have a high order byte of zero, charaaer constants always 
do) then a single chararter assignment is made to the destination address. 
If the high order byte is not zero, then a normal string assignment is per- 
formed as in the previous example. 



Pointer Variable Usage 

Listing 4.10 shows some simple pointer variable manipulations. The three 
instructions at 0002..0004 handle the Pascal assignment "I:=P";'', the 
instructions at 0006..0008 handle the Pascal assignment "P^; = 1;", and the 
instructions at 0009 and OOOA handle the assignment "P: =Q;". 

The SLDO instruction loads the contents of P onto the TOS. The SIND 
instruction that follows loads the data pointed at by the value on TOS (i.e. 
P) onto TOS, and then the SRO instruction stores this data into the variable 
I. This effectively loads the data pointed at by P into the variable I. 

The code for "P": = 1;" is equally simple. The SLDO instruction at address 
0006 loads the value contained in P onto the stack, the SLDO instruction 
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at address 0007 loads die value contained in I onto the stack, and the STO 
instruction at address 0008 stores the data on TOS (I) at the address spec- 
ified on NOS (P). This stores the data contained in I at the address specified 
in the P variable. 

The code for the Pascal statement "P: =Q;" is especially trivial. The value 
contained in Q is loaded into P using the SRO instruction. This copies the 
pointer value in Q to the P variable. 



Code Generator for a FOR Loop 

Listing 4.11 shows how the Apple Pascal compiler generates code for the 
Pascal FOR loop. You will note one interesting feature to the code generated 
in this simple program: the Apple Pascal compiler automatically reserves a 
"phantom" variable for use by the FOR loop. In this program example, 
word offset 132 is used to hold the phantom value. Apple Pascal reserves 
one word of storage for every FOR loop encountered within a program, if 

y\>U. J.V' LJ. yUlXCl l~\J I f !■■■■■ ■ ■■■>>*-- LJLJ.V' 0|^t*V.W 1. W'VJ %.«JL^ WV4. K^ J »* ^^■'^^a.\*jls.j. » v^«-» kjm.^-\^ *.*^-<i^ a-«.-w^w- 

this in mind. 

The code for the FOR loop begins at address 0002. First, the variable I is 
loaded with the value zero (the initial value for the loop) and the phantom 
variable at offset 132 is loaded wih 127 (the final value of the loop). At 
address 0009 the actual loop begins. I and the phantom variable are pushed 
onto the stack and compared with the LEQI instruction at address OOOD. 
If I is less than or equal to the phantom variable then the FJP instruction 
at address OOOE is ignored, otherwise the loop terminates by jumping to 
address OOIE. If I is less than or equal to the phantom variable then control 
drops through to location 0010. The instructions at addresses0010..0016 
handle the Pascal assignment statement "A[I]:=I;". The instructions at 
addresses 0017, 0018, 0019, and OOIA push I onto the stack, add one to 
it, and stores the incremented value back into I. The UJP instruction at 
address OOIC transfers control back to address 0009 so that the loop can 
be repeated. 
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NX^ile Loops 

Listing 4.12 gives an example of the amount of code generated whenever 
the WHILE loop is encountered. Note that the code generated for the 
WHILE loop is shorter than that generated for a FOR loop performing 
the same function. Under certain circumstances it also executes a litde faster 
(although under other circumstances it executes slower). Therefore you 
should never substitute a FOR loop for a WHILE loop if the WHILE loop 
is a more logical choice. 

As with the FOR loop, the code for die WHILE loop begins widi an 
initialization section. The difference here, of course, is that the initialization 
phase is handled by the explicit Pascal statement "I: = 0;". The code for this 
initialization section is at addresses 0002 and 0003. The loop proper begins 
at address 0005 where I is pushed onto the stack and compared wtih 127. 
If I is greater than 127 the LEQI instruction at address 0007 aborts the 
execution of the loop, otherwise control drops to the code at address OOOA 
that handles the assignment "A[I]:=I;". I is incremented at addresses 
0011. .0014 and the UJP instruction at address 0016 returns control to the 
top of the loop at address 0005. 



The REPEAT„UIMTfL Loop 

A Repeat.. Until loop and the p-code generated for it is shown in listing 
4.13. As is the case widi the WHILE loop, the REPEAT. .UNTIL loop 
generates less code and may execute faster than an equivalent FOR loop. 
So you should always use the REPEAT..UNTIL loop in a situation if it is 
more appropriate. 

Addresses 0002 and 0003 handle the initialization code "I: = 0;". The loop 
begins at address 0005. Unlike the WHILE loop, die REPEAT..UNTIL 
loop checks for loop termination at the end of the loop. Therefore the code 
encountered at the beginning of the loop is the code for die assignment 
"A[I]: = I ;". At addresses 0011 through 0014 I is pushed onto die stack, 
compared with 127, and program control is transferred to address 0005 if 
I is less than or equal to 127. 
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The IF..THEN..ELSE Statement 

Listing 4.14 presents the code that the Apple Pascal compiler generates for 
the IF THEN ELSE statement. There are six IF statements in this program, 
the first one's code occupies locations 0002.. OOOE, the second uses 
0010..0016, the third requires locations 0018..00IF, the fourth's code resides 
at 0021.0027, die fifth is at 0029.. 002F, and the sixdi IF statement's code 
is at 0031..003C. Since all of these differ only by the operation performed, 
only two forms will be discussed, a version with the optional ELSE clause 
and a version without. 

The code beginning at address 0002 handles the Pascal statement: 



IF 1=0 THEN I:=-l 
ELSE I := 0; 

The SLDO instruction at address 0002 pushes the variable I onto the stack, 
the SLDC instrnction at address 0003 pushes zero onto the stack, and the 
EQUI instruction at address 0004 replaces these two items on the stack 
with TRUE if I is equal to zero and FALSE if I is not equal to zero. The 
FJP instruction at address 0005 jumps to location GOOD if the value on 
TOS is FALSE (i.e., I did not equal zero). If TOS is TRUE (I equaled 
zero) then program control continues at address 0007 at which point the 
value one is pushed onto the stack and this is negated and stored in I. At 
address OOOB an unconditional jump is taken to the first byte past the 
IF. .THEN. .ELSE at address 0010. If I did not equal zero then the former 
FJP instruction transfers control to the first instruction past the UJP instruc- 
tion at address OOOD. The two instructions that follow push zero onto the 
stack and then store the TOS into the variable I. 

The instructions firom 0010.. 0016 handle an IF statement without the ELSE 
clause. The only difference here is the faa that the FJP instruction jumps 
to the end of the code for the IF statement and there is no UJP instruction 
sandwiched in there. 
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The CASE Statement 

Listings 4. 15 and 4. 16 show how the Apple Pascai compiier generates code 
for the CASE statement. The listings are identical except for an extra case 
element in listing 4. 16. This single addition (case = 24) is solely responsible 
for the 46 additional bytes generated in listing 4.16. Since the listings are 
so similar, listing 4.16 will be discussed. 



The code for the first CASE statement resides in the range 0002.. 0027. The 
code sequence begins by pushing the value contained in 1 onto the stack. 
Tnen an UJP to the case jump at location 0019 is taken. Apple Pascai 
generates code for the individual cases of a case statement befbre the actual 
case jump. So the code between 0005 and 0017 handles each of the cases 
in the first case statement. 0005..0008 handles the case "0:1: = 1;", OOOA.OOOD 
handles the case "1:1: = 0;", 000F..0012 handles the case "2:1: = 3;", and 
0014..0017 handles the case "3:1: =2;". 

The XTP instruction at address 0019 handles all the work. It expects a case 
value on the top of the stack which it compares to the minimum and max- 
imum values which are contained within the case statement. If the value on 
TOS is outside this range then a jump to location 0028 is taken. IF the 
value on TOS is within this range, then a branch is taken to the address that 
is found at the appropriate entry in the table following the XJP instruction. 
In this case, if 1 = then control is transferred to location 0005, if 1= 1 
control is transferred to location OOOA, if 1 = 2 then control is transferred 
to location OOOF, and if I = 3 then control is transferred to location 0014. 



The second CASE statement which appears in listing 4.16 generated con- 
siderable more code because the case values are disjoint. This case statement 
demonstrates two things: the entries in diecase table when two^case vaiues 
are present before one statement; and the type of code that is generated if 
the case values are widely separated (disjoint). Of interest here is the fact 
that the addresses between the values four and twenty-four all point at 
location 70. This points at a UJP instruction in the middle of the XJP 
instruction that jumps to location 007A. If one of these values appears on 
the TOS then control is transferred to the first statement past the CASE 
statenKnt without executing any of the cases. 
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Expressions In Apple Pascal 

Listings 4.17 and 4.18 show how Apple Pascal generates code for various 
arithmetic expressions. Listing 4.17 demonstrates the code generated for 
simple expressions. Listing 4. 18 lists the code generated for a few somewhat 
complex expressions. While these listings are certainly not all-encompassing, 
they do demonstrate the code generated by the more popular fimctions and 
operators. 

The code from 0002.. 0006 in lisimg 4.17 handles the two asssignments 
"I: =0;" and "J: =1;". '7: =PRED(I);" is handled by the code at addresses 
0008.000B. I is pushed onto the stack, one is subtracted from it, and the 
result is stored into I. Likewise, the code from 000D..0010 handles the 
assignment "J: = SUCC(l);" by pushing I, adding one to it, and storing the 
result into J. 

The arithmetic operations; addition, subtraction, multiplication, division, 
and modulo; are shown between locations 0012. .0029. In each example I 
is pushed onto the stack, J is pushed onto the stack, the specific operation 
is performed, and the result is stored into K. Arithmetic negation is handled 
at addresses 002B..002D. Here I is pushed onto the stack, negated, and 
stored into K. 

The binary Boolean operators' code appears between locations 002F and 
005B. As is the case with the arithmetic operators the two operands are 
pushed onto the stack the operation is performed, and the result is stored 
into B. The set inclusion operation (IN) is performed at addresses 004D..0051. 
It is a httic different from the other binary operations in that three operands 
are pushed onto the stack. First 1 is pushed onto the stack (SLDO 3), then 
the value three is pushed onto the stack (the bit map corresponding to the 
set [0,1]), and finally the value one is pushed onto the stack (the number 
of words occupied by the set on TOS). The INN instruction performs the 
set inclusion operation which leaves true or false on the top of the stack. 
This value is stored into B by the SRO 6 instruction following the INN 
instruction. Logical negation (NOT) is demonstrated by the code generated 
for B: = NOT(C) at addresses 005D..005F. 

ODD, ORD, and CHR are not true functions. This fact is demonstrated 
by the code generated for ODD and ORD at addresses 006L.0065. ODD, 
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ORD, and CHR are simply "compiler functions" that allows the compiler 
to treat mteger values as Boolean or character values and vice versa. As you 
can see m L..c cov^e generated, I is stored into B with no intervening p-codes 
when B: = ODD(I) is executed and likewise for I: = ORD(B). 

Listing 4.18 shows die code generated for complex expressions. Anyone 
familiar with an HP calculator wiU feel right at home witii this type of code 
(smce It is all reverse polish notation). No attempt, however, will be made 
to explain this code because even for the TI buffs, this code is fairlv easy to 
follow. ' ^ 



String Handling Functions 

Listing 4.19 shows the p-code generated for some of the built-in string 
functions in Apple Pascal. Note that this disassembly was produced with 
ABPs DUMPCODE disassembler instead of DECODE. DECODE con- 
tained a smaU bug which prevented it fi:om listing a few instructions at the 
end of the listing. The most pecuUar thing you should notice about this 
listmg is the fact that it does not begin with a pair of NOP instuctions. 
Instead tiiere is a jump instruction that branches to the end of the program 
where 30 is pushed onto the stack, special procedure number twenty-one is 
called, and then the program jumps back to location 0002. This short piece 
of code at the end of the program is used to load an intrinsic unit oflF the 
disk. In tills case, tiie LONGINT intrinsic unit must be accessed because of 
die call to die STR routine. Two bytes are reserved at die beginning of 
every program for tiiis jump in case die initialization code is required. The 
jump IS patched in (as in tiiis case) if an intrinsic segment must be loaded 
from disk. 

As widi all die programs presented tiius far die actual program code begins 
at address 0002. At location 0002 die address of S is pushed onto die stack. 
The NOP diat follows is used to aUgn die string diat foUows on a word 
boundry The LSA instruction at address 0005 pushes die address of die 
strmg "HELLO" onto die stack. Finally, die SAS instruction at address 
OOOC is used to store "HELLO" into die string variable S. This code handles 
the assignment S: = "HELLO";. 
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The code at address 000E..0012 handles the assignment I: = LENGTH(S);. 
The code begins by pushing the address of S onto the stack. This address 
points at the length byte of the string stored in S. Next an index into the 
string that points at the length byte is pushed onto the stack. Since the 
address of S is also the address of die length of the string, this value pushed 
is zero. The LDB instruction at address 0011 adds TOS and TOS-1 and 
pushes the byte pointed at by that sum. Since TOS contains zero and TOS- 
1 contains the address of the lengdi byte of S, the lengdi byte of S (with a 
higher order byte of zero) is pushed onto the stack. This length byte is 
stored into the variable I by the SRO instruction at address 0012. 

The Pascal instruction 1: =POS('HE',S); is handled by the p-code in the 
range 00 14.. 0020. The NOP at address 0014 is used to align the string that 
follows on a word boundry The LSA instruction at address 0015 pushes 
the address of the string 'HE' that follows the LSA instruction The LAO 
instruction at address 0019 pushes the address of S onto the stack. Two 
words of zero (parameters required by the POS routine) are pushed and 
then the POS routine is called with die GXP instruction at address OOID. 
Upon returning from the POS routine the position of die string 'HE' is left 
on the top of the stack. This value is stored into I with the SRO instruction 
at address 0020. 

The assignment S: = CONCAT(S,'THERE'); is handled by die code in die 
range 0022..0040. The code begins by pushing the address of S onto die 
stack. This address will be used to store the concatenated string back into 
S. The next two instructions store the value zero into the variable with word 
offset 49. The astute reader will notice that there was no 49th variable 
defined in die VAR list. The variable at offset 49 is a "phantom" variable 
much like those used by the FOR loops in Apple Pascal. The variable at 
offset 49 is actually a string variable with a maximum length of 86 characters 
(long enough to hold the concatenation of S and "HELLO"). By storing 
zero into offset 49 the phantom stimg is initialized to the empty string. 

The four instructions at addresses 0027.. 002C concatenate die phantom 
string (currentiy empty) with the string S. The CSP 0,23 is responsible for 
the concatenation. The concatenated string may have a maximum of 80 
characters or an error will result. The five instructions at addresses 002F..003B 
concatenate the phantom string withg "THERE". The result is left in die 
phantom string. An error results if die concatenated string is longer than 
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86 characters. Finally, the phantom string is copied into S by the two 
instructions at addresses 003E..0040 (remember, the address of S was pushed 
onto the stack before all the concatenation operations were r>erformed\ 

The assignment S: = COPY(S,l,5); is handled by the p-code at addresses 
0042.. 004F. The address of S is pushed twice, once in order to provide a 
storage address, once because S appears as a parameter to COPY. Next the 
values one and five (also parameters to the COPY routine) are pushed and 
the COPY function in the Pascal O/S is called via the CXP 0,25 instruction. 
The string extraaed from S was stored in the phantom string at offset 49. 
This string is copied into S by the two instructions at addresses 004D and 
004F. 

The instructions at addresses 0051. .0055 handle the Pascal statement 
delete(S,l,2);. The address of S and the values one and two are pushed 
onto the stack and then the Pascal O/S routine DELETE is called via the 
CXP 0,26 instruction. 

The insert command is handled by the code in ther ange 0058.. 0061. The 
address of the string IIE' is pushed onto the stack, the address of S is 
pushed, a maximum length (80) is pushed, and the character position for 
insertion (one) is pushed. Then the Pascal O/S insert procedure is called 
via the CXP 0,24 instruction. 

The code at addresses 0064..006E handle the procedure invocation STR(I,S);. 
I is pushed onto the stack and converted to a BCD value (i.e., a long integer) 
with the CXP 30,4 instruction. Then the address of S is pushed (along with 
some parameters to STR) and this BCD value is converted to a string with 
the CXP 30,4 instruction at address 006E. The 18 pushed onto TOS before 
executing CXP 30,4 instructs the LONG integer routines to perform the 
STR fimction. 

The SLDC 30 and CSP Routine No.22 (misnamed TRUNC in the listing, 
this is actually a ULS [unload segment]) instructions undo what was done 
by the CSP Routine No.21 at address 0077 when the program first began 
running. 
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Procedure Definitions and Cails 

Listings 4.20, 4.21, and 4.22 demonstrate procedure and function calls. 
Listing 4.20 demonstrates some non-segmented procedure calls including 
nested and recursive procedure invocations. The CLP (call local procedure) 
p-code is used to call a local procedure (i.e., a procedure contained within 
the currently executing procedure) and the OGP (call global procedure) p- 
Code is used to call a procedure at the same or lower lex level. Beyond these 
two comments, the code in listing 4.20 is fairly obvious. 

Listing 4.21 demonstrates some segmented procedure calls. The only oper- 
ational difference between the program in listing 4.20 and the program in 
Usting 4.21 is the inclusion of SEGMENT PROCEDURE B. This routine 
gets called by the CXP (call external procedure) p-Code at address 0004. 
Note that the CXP instruction has two parameters. The first parameter (7) 
is the segment number and the second parameter (1) is the procedure num- 
ber within the segment. 

Listing 4.22 demonstrates an Apple Pascal FUNCTION call. The two SDLC 
(PUSH) instructions at addresses 0002 and 0003 push two words onto the 
stack. The function value will be returned in the first word pushed, the 
second word pushed is ignored unless the function happens to return a 
REAL value. The CLP instruction (call local procedure) calls the II function 
which stores zero into the first word pushed and pops the extra word off 
of the top of the stack (by virtue of the RNP 1 instruction). Finally, the 
value left on the top of stack after the function returns (in this case zero) is 
stsored in variable I by the instruction at address 0006. 

And So On . . . 

These examples of generated code area far from complete. If you're curious, 
or if you want to be able to optimize your Apple Pascal code segments, you 
should definitely purchase the PASCAL TOOLS II package from ABT or 
the PDQ package fi-om DATAMOST. Comparisons of these two programs 
with the DECODE program are given in listings 4.23 through 4.26. All 
three programs provide certain advantages and disadvantages when used to 
disassemble Pascal programs. If you're interested in disecting Pascal pro- 
grams, and your budget allows it, I would recommend that you obtain all 
of these packages. I found them all to be quite useful. 



98 



Listing 4-1 



1 




1:D 




2 




1:D 




3 




1:D 




4 




1:D 




5 




1:D 




6 




1:D 




7 




1:D 




8 




1:D 




9 




1:D 




10 




ItD 




11 




1;D 




12 




1:D 




13 




1:D 


20 


14 




1:D 


21 


15 




1:D 


149 


16 




1:D 


150 


17 




1:0 





18 




1:0 





19 




1:1 





20 




1:1 


5 


21 




1:1 


9 


22 




1:1 


15 


23 




1:0 


15 



{$1 PRINTER:} 

(* *) 

(* Listing 4.1; Variable allocaticn/access examples *) 

(* *) 



program ALLOCATICN_EXflHH,ES; 



var 



begin 



end. 



I: integer; 

A:array [0.,15] of integer; 

J: integer; 

B:array [0..127] of integer; 

K:integer; 



I := I 
J := J 
K := K 



(* In these examples, note the *) 
(* number of bytes required for *) 
(* load and storing each variable.*) 



SBGMENTJWE : MAJOOm. SBq_NTO : 1 
TOTftL PROCECORES : 1 SE)Q_NUfL.M)EX : 



HWC # R00ai.SEX3 LEX PaRflfB ElftlA STBRT OFFSET SIZE SSTART $EXIT 
1 ALLOCATI 4 294 1 17 0200 020F 

Offset ($): Mnemonic Pari Par2 Hexcode Opcode 



0(0000) 


NOP 




ICOOOl) 


NOP 




2(0002) 


SLDO 


3 


3(0003) 


SRO 


3 


5(0005) 


LEO 


20 


7(0007) 


SRO 


20 


mmm) 


LDO 


149 


12(000C) 


SRO 


149 


15(000F) 


RBP 






D7 


NDP 


D7 


NOP 


EA 


Load Global Word 


AB03 


Store Global Word 


A914 


Load Global Word 


AB14. 


Store .Global. Word 


^8095 


Load Global Word 


AB8095 


Store Global Word 


ClOO 


Return Base Procedure 
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Listing 4-2 



1 




1:D 


1 


2 




1:D 


1 


3 




1:D 


1 


4 




1:D 


1 


5 




1:D 


1 


6 




1:D 


1 


7 




1:D 


1 


8 




1:D 


1 


9 




1:D 


1 


10 




1:D 


3 


11 




1:D 


3 


12 




1:D 


5 


13 




1:D 


7 


14 




1:0 





15 




1:0 





16 




1:1 





17 




1:1 


12 


18 




1:1 


18 


19 




1:1 


26 


20 




1:1 


37 


21 




1:0 


37 



{$1 HUNTER:} 

(* *) 

(* Listing 4.2: Various forms of accessing REAL variables. *) 
(* *) 

(*****************♦*********************************************) 



program ALLOCATIClt.EXftHPLHS-REAL; 



begin 



R:real; 
S:real; 



:= 1.1; 
:= 4; 

:= S; 

:= -1.1; 



(* Assigning a REAL constant 

(* Assigning an INTEX3EE ccaistant. 

(* Assigning a REAL variable. 

(* Assigning a negative REAL constant. 



*) 
*) 
*) 
*) 



end. 



SECaJQJt^BHE : ALLCCKTI SBq_HJM ; 1 
roERL EROCEEORES : 1 SBG_NOJLINDEX : 



woe # ROOILSEC LEX PARAMS EKEA SnWT OFFSET SIZE SSTART $EXIT 
1 ALLOCATI 4 8 1 39 0200 0225 

Offset ($): Mraeroonic Pari Par2 Heaicode Opcode 



0(0000)' 


NOP 






D7 


NOP 


1(0001)! 


bDP 






D7 


NDP 


2(0002)! 


UD 


3 




A503 


Load GlcAal Address 


4(0004) 


LDC 


2 


16268 


K3028aF 


Load Multiple Constant 








13107 


CDCC 




lO(OOOA) 


am 


2 




BD02 


Store Multiple Word 


12(000C) 


LAD 


3 




A503 


Load Global Address 


14(00OE) 


POSH 


4 




04 


Tioad Constant 


15(000P) 


FLT 






8A 


Float (TOS-1) Integer 


16(0010) 


sm 


2 




ED02 


Store Multiple Word 


18(0012) 


LSD 


3 




A503 


fimd Global Address 


20(0014) 


UC 


5 




A505 


Load Global Address 


22(0016) 


UX. 


2 




BC02 


Load Multiple Word 


24(0018) 


SM 


2 




ED02 


Store Multiple Word 


26(001A) 


LftD 


3 




A503 


Load Glcfcal Address 


28(0010 


: LDC 


2 16268 


B3028OF 


Load Multiple Constant 








13107 


CDCC 




34(0022) 


; NGR 






92 


Exponent Real 


35(0023) 


: sra 


2 




ED02 


Store Multiple Word 


37(0025) 


• RBP 







ClOO 


Return Base Procedure 



-> Real 
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Listing 4-3 



1 1 1:D 1 {$1 PRINTER:} 

2 1 1:D 1 (***************************************************************> 

3 1 1:D 1 (* t) 

4 1 1:D 1 (* Listing 4.3: Array accesses. *) 

5 1 1:D 1 (* *) 

6 1 1:D 1 (***************************************************************) 

7 1 1:D 1 

8 1 1:D 1 

9 1 1:D 1 program ALLOCRTKat-EXAMFLES AEUWYS; 
10 1 1:D 3 ~ 

U 1 1:D 3 var I:array [0..10] of integer; 

12 1 1:D 14 Rrarray [0..10] of real; 

13 1 1:D 36 J:integer; 

14 1 IsD 37 

15 1 1:0 b begin 

16 1 1:0 

17 1 1:1 J := 1; 

18 1 1:1 5 I [Q] := 0; 

19 1 1:1 15 R [0] := 1.1; 

20 1 1:1 32 R [J] != 1.1; 

21 1 1:1 50 I [J] := J; 

22 1 1:1 62 

23 1 1:0 62 end. 



SEOffiNtJIAME : ALLOCaU ^G_NDM : 1 
TOTftL PROCQXJRES : 1 SEiq_NOIt.IM)EX : 
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Listing 4-3 (continued) 



HOC # BOCnLSBG LEX ERRAHS DATA STAECT OFFSET SIZE SSTART $EXIT 
1 ALLOCRn 4 68 1 64 0200 023E 

Offset {$): Mnemcnic Pari Par2 Hexcode OpcxxSe 



0(0000): 


NOP 




D7 


NOP 


1(0001): 


NOP 




D7 


NOP 


2(0002): 


PUSH 


1 


01 


TiOfld Constant 


3(0008): 


SRO 


36 


AB24 


Store Global Word 


5(0005) : 


LAD 


3 


A503 


Load GldbsH Address 


7{000f7) : 


HTSH 





00 


Load Ciaistant 


8(0008) : 


POSH 





00 


Tnnd Constant 


9(0009) : 


HJSH 


10 


OA 


Load Constant 


lO(OOOA): 


CUK 




88 


Bange Check 


ll(OOOB): 


IXA 


1 


A401 


Index Array 


13(000D): 


POSH 





00 


Load Constant 


14(000E): 


STO 




9A 


Store Indirect Word 


15(000F): 


UO 


14 


A50E 


Load Global Address 


17(0011): 


POSH 





00 


Load Coistant 


18(0012) : 


Hi»i 


u 


00 


Load Constant 


19(0013) : 


rosH 


10 


OA 


Tioad Constant 


20(0014) : 


tHK 




88 


Range Check 


21(0015): 


IXA 


2 


A402 


Index Array 


23(0017)! 


WC 


2 16268 
-13107 


E3028aF 
CDCC 


Load Multiple Constant 


30(001E): 


sra 


2 


ED02 


Store Multiple word 


32(0020)! 


lA) 


14 


A50E 


Load Global Address 


34(0022) : 


wo 


36 


A924 


Toad Global Word 


36(0024); 


POSH 





00 


Load Constant 


37(0025)! 


POSH 


10 


OA 


TiOrid Constant 


38(0026) : 


CHK 




88 


Range (3iedc 


39(0027) ! 


IXA 


2 


A402 


Index Array 


41(0029)- 


UK 


2 16268 

-13107 


E3028C3F 
CDCC 


Trtid Multiple Constant 


48(0030) 


SDl 


2 


ED02 


Store Multiple Word 


50(0032) 


UO 


3 


A503 


Load Glcial Address 


52(0034) 


LDO 


36 


A924 


Load Global word 


54(0036) 


! HJEB 





00 


Load Constant 


55(0037) 


! POSH 


10 


OA 


Load Constant 


56(0038) 


; CHK 




88 


Range Check 


57(0039) 


: IXA 


1 


A401 


Index Arr^ 


59(003B) 


: LDO 


36 


A924 


Load Global Wbrd 


61(003D) 


: fa'lU 




9A 


Store Indirect Word 


62(003E) 


: RBP 





ClOO 


Return Base Procedure 
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Listing 4-4 



1 1 1:D 1 {SI PRINTER:} 

2 1 1:D 1 (**************************************i,ic*ic*ic***************i,i,i,*\ 

3 1 1:D 1 (* ^j 

^ ?■ 1=° 1 f* Listing 4.4: Array accesses with {$R-} option. *) 

3 1 1:D 1 (* ^\ 

6 1 1:D 1 (***************************************************************^ 

7 1 1:D 1 ^ 

8 1 1:D 1 {SR-} 

5 1 1:D 1 program ALLOCaTia} EXAMPLES ARRAYS; 

10 1 1:D 3 ~ 

^ 1 1:D 3 var Ijarray [0..10] of integer; 

12 1 1:D 14 R:array [0..10] of real; 

13 1 1:D 36 J: integer; 

14 1 1:D 37 

15 1 1:0 begin 

16 1 1:0 

17 1 1:1 J := 1; 

18 1 1:1 5 I [03 := 0; 

19 1 1:1 12 R [0] := 1.1; 

20 1 1:1 26 R [J] := 1.1; 

21 1 1:1 40 I [J] := j. 

22 1 1:1 49 

23 1 1:0 49 end. 



SBaiENT_NfiME : ALLOCATI SEG_NUM : 1 
TOTAL PRDCECURES : 1 SEG_NUIt.INDEX : 
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Listing 4-4 (continued) 



woe # ROCfr_SBG LEX PflRAMS DATA STAE?T OFFSET SIZE $STAKr $EXIT 
1 ALLOCATI 4 68 1 51 0200 0231 

Offset ($): Mnemonic Pari Par2 Hexcode Opcode 



0(0000): 


NOP 


1(0001) : 


NOP 


2(0002): 


PUSH 


3(0003): 


SRO 


5(0005): 


UO 


7(0007): 


PUSH 


8(0008) : 


IXA 


lO(OOOA): 


PUSH 


IKOOOB): 


STO 


12(000C): 


UO 


14(000E): 


PUSH 


15(000F): 


IXA 


17(0011): 


LDC 


■»>i /nm o\ . 


cmi 


*.TI kW^W/ ■ 


^^^^^ 


26(001A): 


UO 


28(0010 : 


ux» 


30(001E): 


IXA 


32(0020): 


UX 


38(0026) : 


SIM 


40(0028): 


UO 


42(002A): 


LDO 


44(0020: 


IXA 


46(002E): 


LDO 


48(0030) : 


sro 


49(0031): 


Ifflp 



D7 NOP 

D7 NOP 

1 01 Load Constant 

36 AB24 Store Gl(*al Word 

3 A503 Load Global Address 

00 Load Constant 

1 A401 Index Array 

00 Load Constant 

9A Store Indirect Word 

14 A50E Load Global Address 

00 Load Constant 

2 A402 Index Array 

2 16268 B3028C3F Load Multiple Constant 
-13107 CDCC 

2 HX)2 Store Multiple Word 

14 A50E Load Glctoal" Address 

36 A924 Load Global Word 

2 A402 Index Array 

2 16268 E3028C3F Load Multiple Constant 
-13107 CDCC 

2 ED02 Store Multiple word 

3 A503 Load Global Address 
36 A924 Load Global Wbrd 

1 A401 Index Array 

36 A924 Load Global Word 

9A Store Indirect Word 

ClOO Return Base Procedure 



104 



Listing 4-5 



1 




1:D 


1 


2 




1:D 


1 


3 




1:D 


1 


4 




1:D 


1 


5 




1:D 


1 


6 




1:D 


1 


7 




1:D 


1 


8 




1:D 


1 


9 




1:D 


3 


10 




1:D 


3 


11 




1:D 


3 


12 




1:D 


3 


13 




1:D 


4 


14 




1:D 


5 


15 




1:D 


6 


16 




1:D 


7 


17 




1:D 


8 


18 




1:0 





19 




1:0 





20 




1:1 





21 




1:1 


7 


22 




1:1 


13 


23 




1:1 


19 


24 




1:1 


25 


25 




1:1 


31 


26 




1:1 


39 


27 




1:1 


47 


28 




1:1 


53 


29 




1:1 


62 


30 




1:1 


71 


31 




1:1 


80 


32 




1:1 


83 


33 




1:1 


89 


34 




1:0 


89 



1 {51 PRINTER:} 

2 (Ic**************************************************************) 

(* *) 

(* Listing 4.5: Snail sets. *) 

(* *) 

program ALLOCaTIORi.EXflMELES:.SETS; 
type 

EMALLI = 0..11; 

var 



begin 



S: 


set of SMAIil; 


R: 


set of SMRLLI; 


Q: 


set of SMMJ.I? 


B: 


boolean; 


I: 


integer; 


S 


•= [] ; (* Empty set *) 


S 


•= [0]; 


S 


= C0,1]; 


S 


:= [0,1,2]; 


S 


= [0,1,2,3]; 


S 


= [4,5,6,7]; 


S 


= [8,9,10,11]; 


R 


= [0]; 


Q 


= R + S; 


Q 


= R - S; 


Q 


= R * S; 


I ! 


= 2; 


B : 


= I in Q; 



end. 



SBGMEMLNBME : ALLOCaTI SH3_NDM : 1 
TOTAL HOCE3X1RES : 1 SE)G_NOT1_IM)EX : 



PROC # RDOT_SBG LEX PARAMS DATA START OFFSET: SIZE $START $EXIT 
1 ALLOCATI 4 10 1 91 0200 0259 

Offset ($): Mnemonic Pari Par2 Hejccode Opcode 



0(0000) 


: NOP 




D7 


IDP 


1(0001) 


: NOP 




D7 


N3P 


2(0002) 


HJ£H 





00 


Load Constant 


3(0003) 


AW 


1 


ADOl 


Adjust Set 


5(0005) 


SRO 


3 


AB03 


Store Global Word 


7(0007) 


PUSH 


1 


01 


Load Ctonstant 


8(0008) 


PUSH 


1 


01 


Load Constant 
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Listing 4-5 (continued) 



9(0009): 


ADJ 


1 


ADOl 


Adjust Set 


IKOOOB): 


SKO 


3 


AB03 


Store Glohnl Word 


13(000D): 


PUSH 


3 


03 


Load Caistant 


14(000E): 


HJEH 


1 


01 


load Ccaistant 


15(000F): 


RDJ 


1 


ADOl 


Adjust Set 


17(0011): 


SRO 


3 


AB03 


Store Global Word 


19(0013) : 


PUSH 


7 


07 


Load Caistant 


20(0014): 


PUSH 


1 


01 


Load Constant 


21(0015): 


ADJ 


1 


AOOl 


Adjust Set 


23(0017): 


SRO 


3 


AB03 


Store Global Word 


25(0019): 


PUSH 


15 


OF 


Load Constant 


26(001A): 


WSR 


1 


01 


Load Constant 


27(001B): 


ADJ 


1 


AOOl 


Adjust Set 


29(001D): 


SKO 


3 


AB03 


Store Global Word 


31(001F): 


LDCI 


240 


C7F000 


Tioad Constant 


34(0022) : 


HJSH 


1 


01 


Load Constant 


35(0023): 


ADJ 


1 


AOOl 


Adjust Set 


37(0025): 


SRO 


3 


AB03 


Store Glohi=il Word 


39(0027) : 


uri 


3840 


C7000F 


Load Caistant 


42(002A): 


PUSH 


1 


01 


Load Caistant 


43 (002B) : 


ADJ 


1 


ADOl 


Adjust Set 


45(002D): 


SRO 


3 


AB03 


Store GldDal Word 


47(002F): 


PUSH 


1 


01 


Load Caistant 


Mrtff\fv^n\ . 


TnTTK-WT 


T 


r»-i 


T «^ J r'^^ ^a. ^«*. 


«tovuuju/ : 


ruoci 


JL 


ux 


iJUCLyjt VAAIOUCUIU 


49(0031): 


ADJ 


1 


AOOl 


Adjust Set 


51(0033): 


SRO 


4 


AB04 


store Global Wbrd 


53(0035): 


sr,no 


4 


£B 


Toad Global WOrd 


54(0036): 


PUSH 


1 


01 


road Caistant 


55(0037): 


SLDO 


3 


EA 


Load Global Word 


56(0038): 


HJEH 


1 


01 


Load Constant 


57(0039): 


UNI 




9C 


Canpare Set Union (Or) 


58 (003 A): 


ADJ 


1 


AOOl 


Adjust Set 


60(0030: 


SRO 


5 


AB05 


Store Glohrir Wbrd 


62(003E): 


Kr,no 


4 


IB 


Load Global Word 


63(003F): 


PUSH 


1 


01 


Tnrid Constant 


64(0040): 


.sT,no 


3 


EA 


Load Global Word 


65(0041): 


PUSH 


1 


01 


Iioad Constant 


66(0042): 


DIF 




85 


Coipare Set (And Not) 


67(0043): 


ADJ 


1 


AOOl 


Adjust Set 


69(0045) : 


SRO 


5 


AB05 


Store Global Word 


71(0047): 


.srro 


4 


EB 


Load Global Word 


72(0048): 


PUSH 


1 


01 


load (ixistant 


73(0049): 


,sr,r)o 


3 


EA 


Toad Global Word 


74(004A): 


PUSH 


1 


01 


Load Constant 


75(004B): 


INT 




8C 


Canpare Set Intersect (And) 


76(0040: 


ADJ 


1 


ADOl 


Adjust Set 


78(004E) : 


SRO 


5 


AB05 


Store Glc*al Word 


80(0050): 


PUSH 


2 


02 


Toad Constant 


81(0051): 


SRO 


7 


AB07 


Store Global Word 


83(0053): 


RT-no 


7 


EE 


Toad Global Word 


84(0054): 


Rr,no 


5 


EC 


Load Global Word 


85(0055): 


puai 


1 


01 


Toad Constant 


86(0056): 


INN 




8B 


Canpare Set Membership 


87(0057): 


SRO 


6 


AB06 


Store Global Word 


89(0059): 


RBP 





ClOO 


Return Base Procedure 
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Listing 4-6 



1 




1:D 


1 


2 




IsD 


1 


3 




1:D 


1 


4 




1:D 


1 


5 




1:D 


1 


6 




1:D 


1 


7 




1:D 


1 


8 




1:D 


1 


9 




1:D 


3 


10 




1:D 


3 


11 




1:D 


3 


12 




1:D 


3 


13 




1;D 


6 


14 




1:D 


9 


15 




1:D 


12 


16 




1:D 


13 


17 




1:D 


14 


18 




1:0 





19 




1:0 





20 




1:1 





21 




1:1 


9 


22 




1:1 


19 


23 




1:1 


27 


24 




1:1 


44 


25 




1:1 


61 


26 




1:1 


78 


27 




1:1 


81 


28 




1:1 


90 


29 




1:0 


90 



{SI PRINTER:} 
(***************************************************************) 

(* *) 

(* Listing 4.6: Large sets. *) 

(* *) 

program ALL0Ca.TI0K:.E2aHHi£S:_SETS; 
type 

UffiOEI = 0..47; 

var 



begin 



S: 


set of LfiRGEI; 


R: 


set of LftRGEI; 


Q: 


set of LfiRGEI; 


B: 


boolean; 


I: 


integer; 


S 


:= []; 


S 


:= [8,111; 


R 


:= [01; 


Q 


:= R + S; 


Q 


:= R - S; 


Q 


:= R * S; 


I 


:=2; 


B 


:= I in Q; 



eni. 



SBC3ffiNT_NfiME : ALLOCATI SBqjUM : 1 
ODTAL ERDCEUORES : 1 SEXiNCBt-INDEX : 



ERX # ROOTLSBG LEX EARAHS EMA SEART OFFSET SIZE SSTART $EXIT 
1 ALLOCATI 4 22 1 92 0200 025A 

Offset ($): Mnemcnic Pari Par2 HesKode Opcode 



OCQOOCU 


. NOP 




D7 


NOP 


1(0001) 


• NOP 




D7 


NOP 


2(0002) 


■ LflD 


3 


A503 


Iioad Global Address 


4(0004) 


KJEB 





00 


Load Constant 


5(0005) 


• ADJ 


3 


A003 


Adjust Set 


7(0007) 


• SIM 


3 


ED03 


Store Multiple Word 


9(0009) 


LK) 


3 


A503 


Load Global Address 


IKOOOB) 


LDCI 


2304 


C70009 


Load Constant 


14(0O0E) 


PUSH 


1 


01 


Load Constant 


15(000F) 


Aixr 


3 


A003 


Adjust Set 


17(0011) 


SIM 


3 


ED03 


Store Multiple word 


19(0013) 


LSD 


6 


A506 


Load Global Address 
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Listing 4-6 (continued) 



21(0015) 


rosH 


1 


01 


Load Constant 


22(0016): 


msE 


1 


01 


Load Constant 


23(0017) 


ADJ 


3 


A003 


Adjust Set 


25(0019) 


sm 


3 


wm 


Store Multiple Vford 


27(001B) 


IAD 


9 


A509 


Load Global Address 


29(001D) 


L«3 


6 


A506 


Load Global Address 


31(001F) 


UM 


3 


BOR 


load Multiple Word 


33(0021)! 


rosH 


3 


03 


Toad Caistant 


34(0022). 


uo 


3 


A503 


Load Gldsal Address 


36(0024); 


UK 


3 


BC03 


Toad Multiple Wbrd 


38(0026) 


HJSH 


3 


03 


Load Constant 


39(0027) 


UNI 




9C 


Cciipare Set Union (Or) 


40(0028) 


AEU 


3 


M03 


Adjust Set 


42(002A) 


sm 


3 


ED03 


Store Multiple Wbrd 


44(0020 


lA) 


9 


A509 


Load Global Address 


46(002E) 


UC 


6 


A506 


Load Global Address 


48(0030) 


LDM 


3 


BCm 


Load Multiple Word 


50(0032) 


PUSH 


3 


03 


Toad Constant 


51(0033) 


UC 


3 


A503 


Load Global Address 


53(0035) 


LCM 


3 


B003 


Toad MultipiLe Word 


55(0037) 


PDSH 


3 


03 


Toad Constant 


56(0038) 


DIF 




85 


Conpare Set (And Not) 


57(0039) 


ADJ 


3 


A003 


Adjust Set 


53 (003 B) 


STK 


3 


iwn 


Store Multiple Word 


61(003D) 


UC 


9 


A509 


Load Global Address 


63(CK)3F) 


UC 


6 


A506 


Load Global Address 


65(0041) 


UM 


3 


Bon 


Load Multiple Wbrd 


67(0043) 


HJSH 


3 


03 


Load Constant 


68(0044) 


UC 


3 


A503 


Toad Global Address 


70(0046) 


UK 


3 


BC03 


Toad Multiple Word 


72(0048) 


rosH 


3 


03 


Toad Constant 


73(0049) 


INT 




8C 


Cimpare Set Intersect ( 


74(004A) 


ADJ 


3 


fl003 


Adjust Set 


76(004C) 


STM 


3 


HD03 


Store Multiple Wbrd 


78(004E) 


PUSH 


2 


02 


Toad Constant 


79(004F) 


SRO 


13 


ABOD 


Store Global Wbrd 


81(0051) 


,Sr.TX3 


13 


F4 


Load Global Wbrd 


82(0052) 


UO 


9 


A509 


Load Global Address 


84(0054) 


UK 


3 


pan 


Toad Multiple Wbrd 


86(0056) 


msR 


3 


03 


Toad Constant 


87(0057) 


nffl 




8B 


Carpare Set Membership 


88(0058) 


SRO 


12 


flBOC 


Store Global Wbrd 


90(005A) 


• REP 





ClOO 


Return Base Procedure 



(AreJ) 
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Listing 4-7 



1 




1:D 


1 


2 




1:D 


1 


3 




1:D 


1 


4 




1:D 


1 


5 




1:D 


1 


6 




1:D 


1 


7 




1:D 


1 


8 




1:D 


1 


9 




1:D 


3 


10 




1:D 


3 


U 




1:D 


3 


12 




1:D 


3 


13 




1:D 


3 


14 




1:D 


3 


15 




1:D 


3 


16 




1:D 


3 


17 




1:D 


3 


18 




1:D 


3 


19 




1:D 


3 


20 




1:D 


11 


21 




1:D 


19 


22 




1:D 


35 


23 




1:0 


35 


24 




1:0 





25 




1:0 





26 




1:1 





27 




1:1 


5 


28 




Isl 


16 


29 




1:1 


19 


30 




1:1 


29 


31 




1:1 


29 


32 




1:1 


35 


33 




1:1 


35 


34 




1:1 


47 


35 




1:1 


59 


36 




1:0 


59 



{$1 PRINTER:} 

(* *) 

(* Listing 4.7: Records with {$R+} opticn. *) 

(* *) 

program AIJ[XX3iTiat.HCAMPLESi.RECX)iRnS; 
type 

MXTYPE = record 

I : integer ; 

R:real; 

Biboolean; 

A:array [0..3] of char; 



var 



begin 



eid; 

H: HYTYPE; 
N: MXTXPE; 
L: array [0..1] of MXTYPE; 



M.I := 0; 

M.R := 1.1 f 

M.B := IHJE; 

M.A [01 := 'A' 

N := M; 

L [0] := M; 
L [13 := N; 



end. 



SBtaiEHILtME : ALLOOin SBQ_NUM : 1 
IDISL PROCEEURES : 1 SBG_NDH_IM)EX : 



109 



Listing 4-7 (continued) 



IRX # RDOILSEC LEX PAEAHS DAIR START OFFSET SIZE SSTAKT $EXIT 
1 ALLOCSm 4 64 1 61 0200 023B 

Offset ($): Mnemonic Pari Par2 Hexcode Opcode 



0(0000): 


NOP 




D7 


NDP 


1(0001): 


NOP 




D7 


N3P 


2(0002): 


HJSB 





00 


Load (Constant 


3(0003): 


SRO 


3 


AB03 


Store Global Word 


5(0005): 


UO 


4 


A504 


Load Global Address 


7(0007): 


LDC 


2 16268 
-13107 


B3028C3F 
CDCC 


Load Multiple Constant 


14(000E): 


sra 


2 


ED02 


Store Mtdtiple Word 


16(0010): 


HJSB 


1 


01 


Load Caistant 


17(0011): 


SRO 


6 


AB06 


Store Global Word 


19(0013) : 


LSD 


7 


A507 


rnad Gldaal Address 


21(0015): 


H}£H 





00 


Iioad Constant 


22(0016): 


PUSB 





00 


Load Constant 


23(0017): 


HJSB 


3 


03 


Toad Constant 


24(0018) : 


CHK 




88 


Range Qiedc 


25(0019): 


IXA 


1 


A401 


Index Array 


27(001B): 


PUSB 


65 


41 


Load Constant 


28(0010 : 


STO 




9A 


Store Indirect Word 


29(001D) : 


UC 


11 


A50B 


Load Global Address 


31(001F): 


lA) 


3 


A503 


Load Global Address 


33(0021): 


ICV 


8 


A808 


Move Word Block 


35(0023): 


LAD 


19 


A513 


Load Gldaal Address 


37(0025): 


HJSB 





00 


Load Constant 


38(0026): 


HJSE 





00 


Load Constant 


39(0027) : 


PUSB 


1 


01 


Load Constant 


40(0028): 


CMK 




88 


Range Check 


41(0029): 


IXA 


8 


A408 


Index Array 


43(002B): 


UO 


3 


A503 


Toad Global Address 


45(0020): 


vm 


8 


A808 


Move Word Block 


47(()02F): 


LAD 


19 


A513 


Load Global Address 


49(0031): 


HJffl 


1 


01 


Load Constant 


50(0032): 


PUSB 





00 


Load Constant 


51(0033): 


FUSE 


1 


01 


Load Oxistant 


52(0034): 


CHK 




88 


Range Check 


53(0035): 


IXA 


8 


A408 


Index Array 


55(0037): 


UC 


11 


A50B 


Load Glohal Address 


57(0039): 


MOV 


8 


AB08 


Move Word Block 


59(003B): 


RBP 





ClOO 


Return Base Procedure 
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Listing 4-8 



1 




1:D 


1 {$1 HUNTER:} 




2 




1:D 


1 (*****j 


t**************** 


************************ 


3 




1:D 


1 (* 






4 




1:D 


1 (* Listing 4.8: Records with {$R-} optiai. 


5 




1:D 


1 (* 






6 




1:D 


I (*****i 


t**************** 


************************ 


7 




1:D 


1 






8 




1:D 


1 {$R^} 






9 




1:D 


1 program RhfOOmm EXAMPLES RECORDS ; 


10 




1:D 


3 type 






11 




1:D 


3 


MYTYPE = record 




12 




1:D 


3 






13 




1:D 


3 




I: integer; 


^ A 




1 -r\ 


"^ 






j.t 




XiU 


O 




R:real; 


15 




1:D 


3 




B:boolean; 


16 




1:D 


3 




A:array [0..3] of char; 


17 




1:D 


3 






18 




1:D 


3 


end; 




19 




1:D 


3 






20 




1:D 


3 var 


M: MYTYPE; 




21 




1:D 


11 


N: MYTYPE; 




22 




1:D 


19 


L: array [0..1] 


of MYTYPE; 


23 




1:D 


35 






24 




1:D 


35 






25 




1:0 


begin 






26 




1:0 









27 




1:1 





M.I := 0; 




28 




1:1 


5 


M.R := 1.1; 




29 




1:1 


16 


M.B := 1HJE; 




30 




1:1 


19 


M.A [0] := 'A'; 




31 




1:1 


26 






32 




1:1 


26 


N := M; 




33 




1:1 


32 






34 




1:1 


32 


L [0] := M; 




35 




1:1 


41 


L [1] := N; 




36 




1:1 


50 






37 




1:0 


50 end. 







*) 
*) 
*) 



SBGMENT:.NfiME : ALLOCaTI SEG_NUM : 1 
TOTAL PROCEDURES : 1 SEG MUM INDEX : 
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Listing 4-8 (continued) 



PKOC # RDCOLSBG LEX PARAMS DATA START OFFSET SIZE $START SEXIT 
1 ALLOCATI 4 64 1 52 0200 0232 
QEfset ($): Mnemonic Pari Par2 Hesccode Opcode 



0(0000) 


NOP 




D7 


NDP 


1(0001) 


NOP 




D7 


NOP 


2(0002) 


HJSH 





00 


Load Constant 


3(0003) 


SRO 


3 


AB03 


Store Glohril Word 


5(0005) 


lA) 


4 


A504 


Load Global Address 


7(0007) 


• ux: 


2 16268 
-13107 


K3028aF 
CDCC 


Load Multiple Ccnstant 


14(OO0E) 


: STM 


2 


BD02 


Store Multiple Word 


16(0010) 


: PUSH 


1 


01 


Tioad Constant 


17(0011) 


: SRO 


6 


AB06 


Store Global Word 


19(0013) 


: UO 


7 


A507 


Load Global Address 


21(0015) 


: PUSH 





00 


Load Constant 


22(0016) 


: IXA 


1 


A401 


Index Array 


24(0018) 


: PUSH 


65 


41 


Load Constant 


25(0019) 


: STO 




9A 


Store Indirect Word 


26(001A) 


: LAD 


11 


A50B 


Load Global Address 


28(0010 


: LSD 


3 


A503 


Load Global Address 


30(001E) 


: MOV 


8 


A808 


Move Word Block 


32(0020) 


: LftO 


19 


A513 


Load Global Address 


34(0022) 


: PUSH 





00 


Toad Caistant 


35(0023) 


: I5CA 


8 


A408 


Index Array 


37(0025) 


: L«D 


3 


A503 


Load Global Address 


39(0027) 


: WCN 


8 


A808 


Move Word Block 


41 (0029) 


: LPO 


19 


A513 


Load Global Address 


43 (002B) 


: PUSH 


1 


01 


Load Constant 


44(0020 


: IXA 


8 


A408 


Index Array 


46(002E} 


: UO 


11 


A50B 


Load Global Address 


48(0030) 


: MGV 


8 


A808 


Move Word Block 


50(0032) 


: RBP 





ClOO 


Return Base Procedure 
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Listing 4-9 



1 




1:D 




2 




1:D 




3 




1:D 




4 




1:D 




5 




1:D 




6 




1:D 




7 




1:D 




8 




1:D 




9 




liD 




10 




1:D 


3 


11 




1:D 


44 


12 




1:D 


85 


13 




1:0 













xt 




±1<U 


Lt 


15 




1:1 





16 




1:1 


20 


17 




1:1 


26 


18 




1:1 


33 


19 




1:1 


38 


20 




1:0 


38 



{$1 HUHTER:} 

(* *) 



(* Listing 4.9: String accesses with the {$R+} opticm. 



*) 
(* *) 



program ALLOCATXOt.EXAMHiES.amnCS; 



var 



begin 



S:string; 
T:string; 



S := 'Hello there' 

T := S; 

T := "; 

T := 'A'; 



aid. 



SEGMEWILNftME : ALLOCATl SBG_N[JM : 1 
"TOTAL HCCEBURES : 1 SEG_NnJLINDE3C : 



mX. # ROOT_SBG LEX PAi?AMS EftTA START OFFSET SIZE $STAE?r $EXIT 
1 ALLOCATl 4 164 1 40 0200 0226 

Offset ($) : Mnemaiic Pari Par2 Hexcode Opcode 



0(0000) 


NOP 




D7 


^DP 


1(0001) 


HOP 




D7 


NDP 


2(0002) 


LM 


3 


A503 


TAid Global Address 


4(0004) 


NOP 




D7 


NOP 


5(0005) 


LSA 


11 
Hello 
ther 
e 


flSOB 

48656C6C6F 
2074686572 
65 


Tifwd String Constant 


i8(d0i2> 


SAS 


8C" '-" 


AA50 


Assign String 


20(0014) 


L^ 


44 


A52C 


Load Global Address 


22(0016) 


ISO 


3 


A503 


Load Global Address 


24(0018) 


SAS 


80 


AflSO 


Assign String 


26(001A) 


L?0 


44 


A52C 


T,nrid Global Address 


28(0010 


■ NOP 




D7 


NOP 


29(001D) 


LSA 





A600 


Load String Constant 


31(001F) 


SAS 


a) 


AA50 


Assign String 


33(0021) 


LPD 


44 


A52C 


Load Global Address 


35(0023) 


rosH 


65 


41 


Load Constant 


36(0024) 


SAS 


80 


AA50 


Assign String 


38(0026) 


RBP 





ClOO 


Return Base ProceAire 
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Listing 4-10 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 



1 
1 
1 
1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:0 
1:0 
1:1 
1:1 
1:1 
1:1 
1:0 



1 {$1 PRINTER:} 

1 (* *) 

1 (* Listing 4.10: Pointer usage. *) 

1 (* *) 



{ic**************************************************************^ 

program ALL0aVTrCN_EXAHIIiES_POINTERS; 



1 

1 

3 

3 

4 

5 

6 







6 

9 
12 
12 aid. 



var 



begin 



P: ''integer; 
Q: 'integer; 
I: integer; 



I := P'; 

P' := I; 
P := Q; 



SBOffiWILNfiME : ALLOOTI SE)G_NtlM : 1 
TOTAL PROCEDURES : 1 SE!G_NUM_INDEX : 



V9SX. # RO0T_SEG LEX PARAMS DATA START OFEBET SIZE $START SEXIT 
1 ALLOCATI 4 6 1 14 0200 020C 

Offset (S) : Mnemonic Pari Par2 Hexcode Opcxxte 



0(0000) 


■ NOP 




D7 


NOP 


1(0001) 


NOP 




D7 


NOP 


2(0002) 


RTTO 


3 


EA 


Load Global Wbrd 


3(0003) 


SIND 





F8 


Load Inttexed Indirect Word 


4(0004) 


SRO 


5 


AB05 


Store Glohnl Word 


6(0006) 


Kr,no 


3 


EA 


Load Global Word 


7(0007) 


KTJX) 


5 


EC 


Load Global Word 


8(0008) 


STO 




9A 


Store Indirect Word 


9(0009) 


.sr,r)0 


4 


EB 


Load Global Word 


lO(OOOA) 


SRO 


3 


AB03 


Store Global Word 


12(000C) 


RBP 





ClOO 


Return Base Procedure 
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Listing 4-1 1 



1 




1:D 




2 




1:D 




3 




1:D 




4 




1:D 




5 




1:D 




6 




1;D 




7 




1:D 




8 




1:D 




9 




1:D 




10 




1:D 




11 




1:D 


3 


12 




1:D 


4 


13 




1:D 


132 


14 




1:D 


132 


15 




1:0 





16 




1:0 





17 




1:1 





18 




1:1 


30 


19 




1:0 


30 



{SI HUMTER:} 

(* *) 

{* Listing 4.11; For loc^e. *) 

(* *) 

{$R-} 

program POItIflOP_EXAMFLE; 



begin 



Old. 



I: 
A: 



integer; 

array t0..127] 



of integer; 



for I := to 127 do A [I] 



I; 



SEJGMEKTJBME : PORLOOPE SEG_NUM : 1 
TOTftL IWXEEUBES : 1 SBG_NUH_INDEX : 



FROC # ROOILEEG LEX ERRAMS DATA START OFFSETT SIZE SSTART $EXIT 
1 PORLCOEE 4 260 1 32 0200 021E 

Offset ($): Mnemonic Pari Par2 Hexcode Opcx>de 



0(0000) 


: NOP 




D7 


NDP 


1(0001) 


: NOP 




D7 


NDP 


2(0002) 


: PUSH 





00 


Load Constant 


3(0003) 


: SRO 


3 


AB03 


Store Global Word 


5(0005) 


: PUSH 


127 


7F 


Load Constant 


6(0006) 


SRO 


132 


AB8084 


Store Global Word 


9(0009) 


srro 


3 


EA 


Load Global Word 


lO(OOOA) 


u» 


132 


A98084 


Load Glc*al Word 


13(0O0D) 


. LFQI 




C8 


Ccnipare 


14(OO0E) 


FJP 


30 


AlOE 


Juirp If False 


3i&(0«b(»- 


■ MO 


4 


#60* 


Tmftd <Jloberl MiJress 


18(0012) 


Rr,no 


3 


EA 


Load Global Word 


19(0013) 


IXA 


1 


A401 


Index Array 


21(0015) 


SLDO 


3 


EA 


Load Global Word 


22(0016) 


sro 




9A 


Store Indirect Word 


23(0017) 


SLDO 


3 


EA 


Load Global Word 


24(0018) 


PUSH 


1 


01 


Load Constant 


25(0019) 


ADI 




82 


Add 


26(001A), 


SRO 


3 


AB03 


Store Global Word 


28(0010 


UJP 


9 


B9F6 


Unconditional Jump 


30(001E) 


RBP 





aoo 


Return Base Procedure 
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Listing 4-1 2 



1 




1:D 


1 


2 




1:D 


1 


3 




1:0 


1 


4 




1:D 


1 


5 




1:D 


1 


6 




1:D 


1 


7 




1:D 


1 


8 




1:D 


1 


9 




1:D 


1 


10 




1:D 


3 


U 




1:D 


3 


12 




1:D 


4 


13 




1:D 


132 


14 




1:D 


132 


15 




1:0 





16 




1:0 





17 




1:1 





18 




1:1 


5 


19 




1:1 


10 


20 




1:3 


10 


21 




1:3 


17 


22 




1:3 


22 


23 




1:2 


22 


24 




1:2 


24 


25 




1:0 


24 



{$1 IKINTER:} 
(************************************************************♦**) 

(* *) 

(* Listing 4.12: While loops. *) 

(* *) 

(***************************************************************) 

{$H-} 

program WHILELIOOPLEXfiMHJE; 

var 



begin 



I: integer; 

A: arr^ [0..127] of integer; 



I := 0; 

*Aiile (I <= 127) do begin 

A [I] := I; 
I := I + 1; 

end; 



end. 



SECJEirjJfiME : WHILHXIO SEjqjJCM : 1 
TOOaL PROCEDURES : 1 SBG_NOTLn©EX : 



IWX # POCnLSBG LEX PARAMS DATA START OTESET SIZE 5START $EXIT 
1 IffllLELCXl 4 258 1 26 0200 0218 

Offset ($): Mnemonic Pari Par2 Hexcode Opcode 



0(0000): 


NOP 




D7 


NOP 


1(0001): 


NOP 




D7 


NOP 


2(0002): 


FDEH 





00 


Load Ci3nstant 


3(0003): 


SRO 


3 


AB03 


Store Global Word 


5(0005) 


RTTO 


3 


EA 


Load Global Wtord 


6(0006) 


rosH 


127 


7F 


Load Constant 


7(0007) 


T.RQI 




C8 


Canpare 


8(0008) 


FJP 


24 


AlOE 


Jwsp If False 


lO(OOOA) 


LflD 


4 


A504 


Load Global Address 


12(000C) 


RTTO 


3 


EA 


Load Global Word 


13(OO0D) 


IXA 


1 


A401 


Index Array 


15(000F) 


Furo 


3 


EA 


Load Glnhnl Wbrd 


16(0010) 


SID 




9A 


Store Indirect Word 


17(0011) 


RTJX) 


3 


EA 


Load Global Word 


18(0012) 


PUSH 


1 


01 


Load Constant 


19(0013) 


ADI 




82 


Add 


20(0014) 


SRO 


3 


AB03 


Store Glctal Word 


22(0016) 


UJP 


5 


B9P6 


Unconditicffial Junap 


24(0018) 


■ RBP 





ClOO 


Return Base Procedure 
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Listing 4-1 3 



1 




1:D 




2 




1:D 




3 




1:D 




4 




1:D 




5 




1:D 




6 




1:D 




7 




1:D 




8 




1:D 




9 




1:D 




10 




1:D 


3 


11 




IsD 


3 


12 




1;D 


4 


13 




1;D 


132 


14 




1:D 


132 


15 




1:0 





16 




1:0 





17 




1:1 





18 




1:1 


5 


19 




1:1 


5 


20 




1:2 


5 


21 




1:2 


12 


22 




1:2 


17 


23 




1:1 


17 


24 




1:1 


22 


25 




1:0 


22 



{SI rRINTER:} 

(* *) 

(* Listing 4,13: R^jeat Until loops. *) 

(* *) 

{$H-} 

program REPEKt.IJ0OP:.EXAMHiE; 



var 



begin 



X: integer; 

A: array [0..127] of integer; 



I := 0; 
repeat 

A [I] := I; 

I := I + 1; 

until (I > 127) ; 



aid. 



SEOffitnLNaME : REPEAIDO SEQJUM : 1 
TOTAL HiOCEDURES : 1 SBQ_NOTt_INraX : 



I«X # ROat.SEC LEX PAPAHS EfilA STHCT OFFSET SIZE SSTARP $EXIT 
1 BEPEATLO 4 258 1 24 0200 0216 

Offset ($): Mnemonic Pari Par2 HejKode C%xx)de 



0(0000) 


• NOP 




D7 


HDP 


1(0001) 


NOP 




D7 


NOP 


2(0002) 


PUSH 





00 


Load Constant 


3(0003) 


SRO 


3 


AB03 


StOTe Gloiaal Vtord 


5(0005) 


LflO 


4 


A504 


Load Global Address 


7«»07*- 


fifiX> 


3 


■ Eft" - 


lead ©lobai Wtr* 


8(0008) 


IXA 


1 


A401 


Index Array 


lO(OOOA) 


RTJTO 


3 


Ek 


Load Global Word 


IKOOOB) 


SID 




9A 


Strare Indirect Word 


12(0OOC) 


SUM 


3 


^ 


Load Gl<*al word 


13{000D) 


PUSH 


1 


01 


Load Constant 


14(000E) 


ADI 




82 


Add 


15(0OOF) 


SRO 


3 


i^3 


Store Gldaal Word 


17(0011) 


sue 


3 


EA 


Load Global Word 


18(0012) 


HJSH 


127 


7F 


Load Constant 


19(0013) 


Gmi 




C5 


Ccn^are 


20(0014) 


FJP 


5 


A1F6 


Jtmp If False 


22(0016) 


SBP 





ClOO 


Return Base Procedure 
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Listing 4-14 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 



1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:0 
1:0 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:0 



1 

1 

1 

1 

1 

1 

1 

1 

1 

3 

3 

4 







7 

16 

16 

24 

24 

33 

33 

41 

41 

49 

49 

54 

62 

62 



{SI PRINTER:} 

(* *) 

(* Listing 4.14: If ..thai., else statemaits. *) 

{* *) 

(***************************************************************) 

{$R-} 

program IF_srATE«Qn'; 



var 
begin 



I: integer; 

if I = then I := -1 
else I := 0; 

if (I <> 0) then I := 0; 

if (I >= 0) then I := -1; 

if (I > 0) thai I := 0; 

if (I <= 0) then I := 1: 

if (I < ) then I := 
else I := 1; 



av3. 



SBaiENT_N?iHE : IFSTATEK SEQJWM : 1 
TOTAL PKOCEDOREB : 1 SEG_NDH_INDEX : 
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Listing 4-14 (continued) 



EROC # RCX7r_SBG LEX PARAHS EftTA STAEST OFFSET SIZE $STABT $EXIT 
1 IFSTATEM 4 2 1 64 0200 023E 

Offset ($) : Mnancnic Pari Par2 Hexcode Opccxte 



OCOOOO) 


: NOP 




D7 


^DP 


1(0001) 


• NOP 




D7 


NDP 


2(0002) 


RTTO 


3 


EA 


Load Global Word 


3(0003) 


■ HJSH 





00 


load Constant 


4(0004) 


BQUI 




C3 


Conpare 


5(0005) 


FJP 


13 


A106 


Jump If False 


7(0007) 


PUSH 


1 


01 


Toad Constant 


8(0008) 


KGI 




91 


2-s Cixtiplanait 


9(0009) 


SRO 


3 


AB03 


Store GldDal Word 


IKOOOB) 


: UJP 


16 


B903 


Unoonditicmal Jimp 


13(000D) 


. PUSH 





00 


Load Ccffistant 


14(000E) 


SRO 


3 


AB03 


Store Global Word 


16(0010) 


SLDO 


3 


EA 


Load Global Word 


17(0011) 


PUSH 





00 


Load Caistant 


18(0012) 


NEQI 




CB 


Cuiipare 


19(0013) 


FJP 


24 


A103 


Jump If False 


21(0015) 


PUSH 





00 


load Constant 


22(0016) 


SRO 


3 


AB03 


Store Glohfil Word 


24(0018) 


SLEX) 


3 


EA 


Load Global Word 


25(0019) 


HJSH 





00 


Load Constant 


26(001A) 


GBQI 




C4 


Canpette 


27(001B) 


. FJP 


33 


A104 


Jui^ If False 


29(001D) 


PUSH 


1 


01 


Load Constant 


30(001E) 


NGI 




91 


2-s Cuiiplenient 


31(001F) 


SRO 


3 


AB03 


Store Global Word 


33(0021) 


srix) 


3 


EA 


Load Global Word 


34(0022) 


HJSH 





00 


Load Caistant 


35(0023) 


GTRI 




C5 


Cuiipare 


36(0024) 


FJP 


41 


A103 


Jump If False 


38(0026) 


HJSH 





00 


Load Ccsistant 


39(0027) 


SRO 


3 


AB03 


Store Global Word 


41(0029) 


sr,r)0 


3 


EA 


Load Global Word 


42(002A) 


PUSH 





00 


Toad Caistant 


43(002B) 


LBQI 




C8 


Cciipare 


44(0020 


FJP 


49 


A103 


J\inp If False 


46(002E) 


PUSH 


1 


01 


Load CXmstant 


47(002F) 


SRO 


3 


AB03 


Store Global Word 


49(0031) 


fn-ro 


3 


EA 


Load Global Word 


50(0032) 


PUSH 





00 


Toad Constant 


5i.tQfl33J 


,. LESX 




C9 


Ccrapaxe 


52(0034) 


FJP 


59 


A105 


Jimp If False 


54(0036) 


PUSH 





00 


Load Constant 


55(0037) 


SRO 


3 


AB03 


Store Glchal Word 


57(0039) 


UJP 


62 


B903 


Unconditiaial J\mp 


59(003B) 


HJSH 


1 


01 


Toad Constant 


60(0030 


SRO 


3 


AB03 


Store Global Word 


62(003E) 


REP 





ClOO 


Return Base Procedure 
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Listing 4-1 5 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 



1 
1 
1 
1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:0 
1:0 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:0 



1 

1 

1 

1 

1 

1 

1 

1 

1 

3 

3 

4 







5 

5 

10 

15 

20 

25 

25 

40 

40 

43 

43 

48 

53 

58 

58 

76 

76 



{$1 PRINTER:} 
(***************************************************************) 

(* *) 

(* Listing 4.15: Case statement w/contiguous cases. *) 
(* *) 

(***************************************************************} 

{$R-} 

program OiSELSPMHIENT; 

var I; integer; 

begin 

case I of 



0: I := 1 
1: I := 
2: I := 3 
3: I := 2 



end; 
case I of 



0,1: I := 2; 
2,3: I := 3; 
4: I := 0; 



end; 



end. 



SBaENT_NftME : CASESTAT SBG_NUM : 1 
T0EAL ITOCEEURES : 1 SEJGLHBtJNDEX : 
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Listing 4-1 5 (continued) 



HOC # KX7t.SBG UX. PftRAHS EfiTA SOaRT OFESET SIZE SSTflRT $EXIT 
1 CASESTAT 4 2 1 78 0200 024C 

Offset {$): fftiemonic Pari Par2 Hexcode Opcode 



0(0000) : 


Nra> 






D7 


1(0001): 


NOP 






D7 


2(0002): 


5?r,TO 


3 




EA 


3(0003): 


UJP 


25 




B914 


5(0005); 


HJSH 


1 




01 


6(0006): 


SRO 


3 




AB03 


8(0008) ; 


UJP 


40 




B91E 


lO(OOOA): 


HJ£H 







00 


IKOOOB): 


SBO 


3 




AB03 


13 (GOOD): 


DJP 


40 




B919 


15(000F): 


HJSH 


3 




03 


16(0010); 


SRO 


3 




AB03 


18(0012) : 


DJP 


40 




B914 


20(0014); 


POSH 


2 




02 


21(0015): 


SRO 


3 




AB03 


23(0017): 


UJP 


40 




B90P 


25(0019): 


XJP 





3 


/«)0000300 






UJP 


40 


B908 






5 


10 


1B001800 






15 


20 


15001200 


40(0028): 


SUX) 


3 




EA 


41(0029); 


OJP 


58 




B90F 


43 (002B) ; 


POSH 


2 




02 


44(0020: 


SRO 


3 




A0O3 


46(002E): 


OJP 


76 




B91C 


48(0030) ; 


PUSH 


3 




03 


49(0031) : 


SRO 


3 




AB03 


51(0033); 


COP 


76 




B917 


53(0035); 


HJSH 







00 


54(0036): 


SRO 


3 




AFin3 


56(0038): 


UJP 


76 




B912 


58 (003 A); 


XJP 





4 


AC00000400 






OJP 


76 


B90A 






43 


43 


17001900 






48 


48 


16001800 






53 




1500 


76(004C): 


RBP 







ClOO 



NOP 

^DP 

Ixad Global Word 
Uncx>nditional Jmsp 
load Constant 
Store Global Word 
Unccxiditlonal Jm^ 
Load Constant 
Store Global W&rd 
Unconditional Jun^> 
Load Constant 
Store Global Word 
Unconditional Jrnip 
Load Constant 
Store Global Hbrd 
Unconditional Jinp 
Case Juip 



Load Global Word 
Unconditional Junp 
Load Constant 
Store Global W&rd 
IftKxxiditional Juap 
lioad Constant 
Store Global Wbrd 
Unconditional Junp 
Load Constant 
Store Global Vford 
Unconditional Junp 
Case Jump 



Return Base Procedure 



121 



Listing 4-1 6 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 



1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:0 
1:0 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:0 



1 

1 

1 

1 

1 

1 

1 

1 

1 

3 

3 

4 







5 

5 

10 

15 

20 

25 

25 

40 

43 

43 
48 
53 
58 
64 
64 
122 
122 



{$1 HUNTER:} 

(* *) 

(* Listing 4.16: Case statanait w/non-contiguous cases. *) 

(* *) 

(***♦***********************************************************) 

{$R-} 

program CRSE:_SrflTEMENT; 



I: integer; 



begin 



case I of 



aid; 



0: I := 1 

1: I := 

2: I := 3 

3: I := 2 



0,1: I 

2,3: I 

4: I 

24: I 



:= 2; 
:= 3; 
:= 0; 
:= -2; 



aid; 



end. 



SBEMEinLNAME : CASESTM SBQ_NUM : 1 
TDTAL IKXEJDORES : 1 SElG_NUIt.INDEX : 
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Listing 4-1 6 (continued) 



IBX i KXrt^BG LEX EftRAMS EftIA START OFFSET SIZE SSTART SEXIT 
1 CaSESTAT 4 2 1 124 0200 027A 
Offset ($): Mnemcnic Earl Par2 Hexcode Opcode 



0(0000): 


NOP 






D7 


NOP 


1(0001): 


NOP 






D7 


NDP 


2(0002): 


STJTO 


3 




EA 


Load Global Word 


3(0003): 


UJP 


25 




B914 


Urwonditional Junp 


5(0005): 


POSH 


1 




01 


Load Cffistant 


6(0006): 


SRO 


3 




ABOT 


Store Glohnl Wbrd 


8(0008): 


UJP 


40 




B91E 


UiKonditicnal Jianp 


lO(OOOA): 


HJSH 







00 


Load Constant 


IKOOOB): 


SRO 


3 




AB03 


Store Glohal Word 


13(000D): 


UJP 


40 




B919 


Itoconditional Junp 


15(000F): 


HJSH 


3 




03 


Load Constant 


16(0010): 


SRO 


3 




AB03 


Store Global Word 


18(0012) : 


UJP 


40 




3914 


Unconditional Jump 


20(0014): 


HJSH 


2 




02 


road Constant 


21(0015): 


SRO 


3 




AB03 


Store Global Word 


23(0017): 


UJP 


40 




B90F 


Unconditional Jiimp 


25(0019): 


XJP 





3 


AC00000300 Case Juip 






DJF 


4C 


Bsoe 








5 


10 


1B001800 








15 


20 


15001200 




40(0028): 


STJTn 


3 




EA 


Load Global Word 


41(0029): 


UJP 


64 




Bei5 


ttK»nditional Jtmp 


43(002B): 


PUSH 


2 




02 


Load Constant 


44(0020: 


SRO 


3 




AB03 


Store Global Word 


46(002R): 


UJP 


122 




B94A 


ttioonditional Jump 


48(0030) : 


HJSH 


3 




03 


Load Constant 


49(0031): 


SRO 


3 




AB03 


Store Global Word 


51(0033): 


UJP 


122 




B945 


UnccMiditional Jump 


53(0035): 


PUSH 







00 


Load Constant 


54(0036): 


SRO 


3 




AB03 


Store Global Word 


56(0038): 


UJP 


122 




B840 


Onconditicmal Jump 


58(003A) : 


POSH 


2 




02 


Load Constant 


59(003B) : 


N3I 






91 


2-s Ccnplemait 


60(0030: 


SRO 


3 




AB03 


Store Global Word 


62(003E): 


UJP 


122 




B93A 


Unconditicsial Jump 


64(0040): 


XJP 





24 


AC00001800 Case Junp 






UJP 


122 


B932 








43 


43 


IDOOIFOO 








48 


48 


ICOOIBOO 








53. 


70 


imoQcoa 








70 


70 


OHOOIOOO 








70 


70 


12001400 








70 


70 


16001800 








70 


70 


lADOlCOO 








70 


70 


1B002000 








70 


70 


22(K)2400 








70 


70 


26002800 








70 


70 


2AD02C00 








70 


70 


2B003000 








58 




3B0O 




122(007A): 


RBP 







aoo 


Return Base Procedu: 
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Listing 4-1 7 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 



1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

i 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:0 
1:0 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:0 



I ( ***f***^*****************************************************) 

1 (* *' 

Listing 4.17: Some simple aritanetic e^ressiais. 



1 

1 

1 

1 

1 

1 

3 

3 

4 

5 

6 

7 

8 

9 







5 

8 

13 

18 

23 

28 

33 

38 

43 

47 

52 

57 

62 

67 

72 

77 

83 

88 

93 

97 

100 

103 

103 



(* Listing 4.17: Some sinple aritmetic e^ressiois. *) 

(* *) 

{SR-} 

program EXPRESSIONS; 



var 



begin 



I: integer; 
J: integer; 
K: integer; 
B: boolean; 
C: boolean; 
D: boolean; 



:=0; 

:= I; 

:= jared (I) ; 

:= succ (I) ; 

;= I + J; 

:= i - J; 
:= 1 * J; 
:= I div J; 
:= I mod J; 
:= -I; 
:= I = J; 

O J; 

>= J; 

<= J; 

> J; 

< J; 

IN [0,11; 

and D; 

or D; 
not C; 
odd (I); 
ord (B); 



I 

I 
I 
I 
I 
I 
C 
C 



end. 



SBGMENTiNAHE : ESCPRESSI SEGLNUM : 1 
TOTAL FROCEDURES : 1 SBG_N[]iyLINDEX : 
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Listing 4-1 7 (continued) 



EROC # ROar_SEG LEX ERRAMS DATA START OFFSET SIZE $START $EXIT 
1 EXPRESSI 4 12 1 105 0200 0267 
Offset ($): Mnemonic Pari Par2 Hexcode Opcode 



0(0000): 
1(0001): 
2(0002): 
3(0003): 
5(0005): 
6(0006) : 
8(0008): 
9(0009): 
lO(OOOA): 
IKOOOB): 
13(000D): 
14(000E): 
15(0O0F): 
16(0010): 
18(0012) : 
19(0013) : 
20(0014): 
21(0015): 
23(0017): 
24(0018) : 
25(0019): 
26(001A): 
28(0010 : 
29(001D): 
30(001E): 
31(001F): 
33(0021): 
34(0022): 
35(0023): 
36(0024): 
38(0026) : 
39(0027): 
40 (0028) : 
41(0029): 
43 (002B) : 
44 (002C) : 
45(002D): 
47(002F): 
48(0030): 
49(0031): 
SOTOOSiT:* 
52(0034): 
53(0035): 
54(0036): 
55(0037): 
57<0039): 
58 (003 A) : 
59(003B) : 
60(0030: 
62 (003 E): 
63(003F): 
64(0040) : 



NOP 




D7 


tDP 


NOP 




D7 


NOP 


HJffl 





00 


Load Constant 


SRO 


3 


AB03 


Store Global Word 


RTTO 


3 


EA 


Tmd Global Word 


SRO 


4 


AB04 


Store Global Word 


SLDO 


3 


EA 


Load Global Word 


POSH 


1 


01 


Load Caistant 


SBI 




95 


Subtract 


SRO 


4 


AB04 


Store Global Word 


sno 


3 


EA 


Load Global Word 


HJSH 


1 


01 


Load Caistant 


ADI 




82 


Add 


SRO 


4 


m)4 


Store Global Word 


Rrro 


3 


EA 


Load Global Word 


SLDO 


4 


EB 


T<vid Global Word 


ADI 




82 


Add 


SE«D 


5 


AB05 


Store Global Word 


SUDO 


3 


EA 


Load Global Word 


RTTO 


4 


EB 


Load Global Word 


SBI 




95 


Subtract 


SRO 


5 


AB05 


Store Global Word 


SLDO 


3 


EA 


Load Glcfcal Word 


ST,TO 


4 


EB 


Load Global Word 


HPI 




8F 


Multiply 


SRO 


5 


AB05 


Store Global Word 


Rrro 


3 


EA 


Load Global Word 


sr,no 


4 


EB 


Tmd Glctoal Word 


DVI 




86 


Divide 


SRO 


5 


AB05 


Store Global Word 


srro 


3 


EA 


Load Global Word 


Kr,no 


4 


EB 


Toad Glciial Word 


MODI 




8E 


Mod 


SRO 


5 


AB05 


Store GldTal Word 


SLDO 


3 


EA 


Load Global Word 


^GI 




91 


2-s Cijnplanoit 


SRO 


5 


AB05 


Store Global Word 


ST,no 


3 


EA 


Load Global Word 


Rrro 


4 


EB 


Toad Global Word 


ECPI 




C3 . 


Ccmpaxei, 


SRO 


6 


AB06 


Store Global Word 


srjx) 


3 


EA 


Load Global Word 


,9f,no 


4 


EB 


road Global Word 


NEQI 




CB 


Conipare 


SRO 


6 


AB06 


Store Global Word 


SLDO 


3 


EA 


Toad Global Word 


sr,no 


4 


EB 


Toad Global Word 


GEQI 




C4 


Compare 


SRO 


6 


AB06 


Store Global Word 


SLDO 


3 


EA 


Load GldDal Word 


SLDO 


4 


EB 


Load Global Word 


LBQI 




C8 


Ojiipare 
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Listing 4-1 7 (continued) 



65(0041) 


SRO 


6 


PPf\6 


Store Global Word 


67(0043) 


,sr,no 


3 


EA 


Load Global Word 


68(0044) 


' Rrro 


4 


EB 


Toad Global Word 


69(0045) 


(jiia 




C5 


Coi^are 


70(0046) 


SRO 


6 


AB06 


Store Glcial Word 


72(0048) 


RTTO 


3 


ER 


Load Global Word 


73(0049) 


.ST,no 


4 


EB 


Load Global Word 


74(004A) 


LESI 




C9 


Cuiiyare 


75(004B) 


SRO 


6 


AB06 


Store Global Word 


77(004D) 


,sr,no 


3 


ER 


Load Glohni Word 


78(004E)- 


PUSH 


3 


03 


Load Ccnstant 


79(004F) 


HJSH 


1 


01 


Load Constant 


80(0050). 


INN 




8B 


Ccrpare Set Mesriaership 


81(0051): 


SRO 


6 


AB06 


Store Global Word 


83(0053): 


.srro 


7 


EE 


Load Global WOrd 


84(0054): 


srro 


8 


EF 


Load Global Word 


85(0055): 


LAND 




84 


Cuupare 


86(0056): 


SRO 


6 


AB06 


Store Global WOrd 


88(0058) 


SLDO 


7 


EE 


Load Global Word 


89(0059): 


Rr,no 


8 


EF 


T<»d Global Word 


90(005A): 


WR 




8D 


Cuiipare (Or) 


91(005B): 


SRO 


6 


flB06 


Store Global Word 


93(005D): 


sr,no 


7 


EE 


Load Global Word 


94(005E): 


r\irm 




S3 




±jt^n^x 




^uuijarc vivOu/ 


»(005F): 


SRO 


6 


AB06 


store Global Word 


97(0061): 


sr,DO 


3 


EA 


Load Global Word 


98(0062): 


SRO 


6 


AB06 


Store Global Word 


100(0064): 


sr,no 


6 


ED 


Load Global Word 


101(0065): 


SKU 


3 


AB03 


Store Global Word 


103(0067): 


RBP 





ClOO 


Return Base Procedure 
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Listing 4-1 8 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 



1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
1:D 
l:p 
i:D 
1:D 
1:0 
1:0 
1:1 
1:1 
1:1 
1:1 
1:1 
1:1 
1:0 



1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
3 
4 
5 
6 
6 
9 



5 
8 

a 

43 
56 
56 



{$1 PRINTER:} 

(* *) 

(* Listing 4.18: Some complex aritmetic expressions. *) 
(* *) 

{$R-} 

program EXPRESSIOJS; 

var I: integer; 

J: integer; 

K: integer; 

R: real; 

B: boolean; 



begin 



= 1; 

= 2; 

= (I+J) * (J-I) + J div I; 

= (I+J) / (I - R) +3/1; 

= (1=0) and (J=l) or (K >= 0) ; 



end. 



SE)GMan?_NBME : EXPRESSI SBG_NUM : 1 
roTAL PROCEDURES : 1 SEG_NUM_INDEX : 
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Listing 4-1 8 (continued) 



FKOC # ROCOLSEG LEX Efti?AMS DATA START CS-FSET SIZE SSTART SEXTT 
1 EXPRESSI 4 12 1 58 0200 0238 

Offset ($): Mnemcaiic Pari Par2 Hexcode Opcode 



0(0000)- 


NOP 




D7 


NOP 


1(0001) . 


NOP 




D7 


NDP 


2(0002) 


PUSH 


1 


01 


Toad Ccsistant 


3(0003) 


SRO 


3 


AB03 


Store Gl<±al Word 


5(0005) 


EUSH 


2 


02 


Tioad Caistant 


6(0006) 


SRO 


4 


AB04 


Store Glolvil Word 


8(0008) 


srro 


3 


EA 


Load Glc*al Word 


9(0009). 


SLDO 


4 


m 


Toad Global Word 


lO(OOOA). 


ADI 




82 


Add 


ll(OOOB) 


Rr,no 


4 


£B 


Toad Global Word 


12(000C) 


srro 


3 


EA 


Load Global Word 


13(0000) 


SBI 




95 


Subtract 


14(000E) 


MPI 




8F 


MultipiLy 


15(000F) 


sr,no 


4 


EB 


Load Global Word 


16(0010) 


srro 


3 


EA 


Load Global Word 


17(0011) 


DVI 




86 


Diviue 


18(0012) 


fiDI 




82 


Add 


19(0013) 


SPO 


5 


AB05 


Store Glohnl Word 


21(0015) 


lA) 


6 


A506 


Load Global Address 


23(0017) 


sr,no 


3 


EA 


Load Global Word 


24(0018) 


srro 


4 


EB 


Load Global Word 


25(0019) 


ADI 




82 


Add 


26(001A) 


■ SLDO 


3 


EA 


Load Global Vtord 


27(001B) 


LflD 


6 


A506 


Toad Global Address 


29(001D) 


: L£M 


2 


BC»2 


Toad Multiple Word 


31{001F) 


• FLO 




89 


Float (TOS) Integer -> Real 


32(0020) 


SBR 




% 


Subtract Real 


33 (0021) 


FLO 




89 


Float (IDS) Integer -> Real 


34(0022) 


DVR 




87 


Divide Real 


35(0023) 


.sr,no 


4 


EB 


Load Gl<*al Word 


36(0024) 


Rr,no 


3 


EA 


Load Global Word 


37(0025) 


• FLT 




8A 


Float (TOS-l) Integer -> Real 


38(0026) 


FLO 




89 


Float (TOS) Integer -> Real 


39(0027) 


: DVR 




87 


Divide Real 


40(0028) 


: ATE 




83 


Add Real 


41(0029) 


: sm 


2 


ED02 


Store Multiple Word 


43 (002B) 


: ST,n0 


3 


EA 


Load Global Word 


44(0020 


! POSH 





00 


Load CMistant 


45(002D) 


. EQUI 




a 


Coipare 


46(002E) 


■ SU» 


4 


EB 


Toad Global Word 


47(002F) 


Hjsa 


1 


01 


Load Caistant 


48(0030) 


: EQUI 




a 


Canpare 


49(0031) 


: LAND 




84 


Compare 


50(0032) 


: .srro 


5 


EC 


Toad Global Word 


51(0033) 


: KJSH 





00 


Toad Caistant 


52(0034) 


: GFQI 




C4 


Compare 


53 (0035) 


: LCR 




8D 


Compare (Or) 


54(0036) 


: SRO 


8 


AB08 


Store Global Word 


56(0038) 


: RBP 





ClOO 


Return Base Procedire 
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Listing 4-19 



1 




1:D 


1 


{$L HUNTKK:} 


2 




1:D 


1 


{$R-} 


3 




1:D 


1 


ERDGRAM BUILTINS; 


4 




1:D 


3 


VftR B:PACK£D ARRAY [0..7] 


5 




1:D 


7 


S:STOING; 


6 




1:D 


48 


I:INTE)GEE; 


7 




1:D 


49 




8 




1:0 





BEGIN 


9 




1:0 







10 




1:1 





S:= 'HKLLO'; 


11 




1:1 


14 


I:= LEHC?IH(S); 


12 




1:1 


20 


I:= POS('HE',S); 


13 




1:1 


34 


S:= CTNCAKS,' 1HERE'); 


14 




1?1 


ae 


.S?= 00PyfSrl.-5); 


15 




1:1 


si 


DELErE(S,lf2); 


16 




1:1 


88 


INSERT CHE' ,S,1) ; 


17 




1:1 


100 


sm(i,s)? 


18 




1:1 


113 




19 




1:0 


113 


EICI. 



OF CHAR; 



DUMPCODE of file SYSTEM. WRK. CODE 

Segment: No: Size: Addr: SegKind: Text: 

BUILTINS 008E 0001 LINKED 

Dump of Segment Tale for segment 
SegNo = 1 Num Procs = 1 
1: 0088 



Listing of disassanbled code for segment 


Begin Proc: 








0000: B9 74 




UJP 


0076 


0002: A5 07 




UO 


7 


0004: D7 




NOP 




0005: A6 05 




LSA 


5,'HKr,rn' 


OOOC: AA 50 




SAS 


80 


OOOE: AS 07 




IX) 


7 


0010: 00 




SUX 





0011: BE 




IDE 




0012: AB 30 




SRO 


48 


0014: D7 




^DP 




0015: A6 02 




LSA 


2,'HE' 


0019: A5 07 




LAO 


7 


OOIB: 00 




SUX 





OOIC: 00 




.STJX 





OOID: CD 00 


IB 


CXP 


0,27 


0020: AB 30 




SRD 


48 


0022: .A5.iO. 




UQ. 


7 


0024: 00 




,srre 





0025: AB 31 




SRO 


49 


0027: A5 31 




LM 


49 


0029: A5 07 




LflO 


7 


002B: 50 




SIDC 


80 


002C: CD 00 


17 


CXP 


0,23 


002F: A5 31 




LSD 


49 


0031: A6 06 




LSA 


6,' THERE' 


0039: D7 




top 




003A: 56 




srjx: 


86 


003B: CD 00 


17 


CXP 


0,23 


003E: A5 31 




LMD 


49 
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Listing 4-1 9 (continued) 



0040: 


AA 50 






SAS 


80 


0042: 


A5 07 






LSD 


7 


0044: 


A5 07 






LSD 


7 


0046: 


A5 31 






LSD 


49 


0048: 


01 






SLDC 


1 


0049: 


05 






RTiTX: 


5 


004A: 


CD 00 


19 




CXP 


0,25 


004D: 


A5 31 






uc 


49 


004F: 


M 50 






SAS 


80 


0051: 


A5 07 






LSD 


7 


0053: 


01 






.sr,ix; 


1 


0054: 


02 






.sr.nc 


2 


0055: 


CD 00 


lA 




CXP 


0,26 


0058: 


D7 






NOP 




0059: 


A6 02 






LSA 


2, 'HE' 


005D: 


A5 07 






LftQ 


7 


005F: 


50 






SLDC 


80 


0060: 


01 






.sr,rc 


X 


0061: 


CD 00 


18 




CXP 


0,24 


0064: 


A9 30 






IDO 


48 


0066: 


12 






Rr,nc 


18 


0067: 


CD IE 04 




CXP 


30,4 


006A: 


A5 07 






LSD 


7 


006C: 


50 






fJfC 


80 


006D: 


OC 






RTiDC 


12 


006E: 


CD IE 04 




CXP 


30,4 


0071: 


IE 






SLDC 


30 


0072: 


9E 16 






cyp 


ISWC 


0074: 


B9 05 






UJP 


007B 


0076: 


IE 






sr,nc 


30 


0077: 


9E 15 






CSP 


Routine No. 21 


0079: 


B9 F6 






UJP 


-10 


007B: 


CI 00 






RBP 











JTAB[ 


-10] = 0002 








Data 


Segment Size: 00B4 








Parameter Size 


:: 0004 








Exit 


IC: 


0071 








Entry 


' IC: 


0000 








Lex Level: 0, 


Procedure No. : 
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Listing 4-20 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 



1 
1 
1 

1 
1 

1 
1 
1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 



1:D 

1:D 

1:D 

1:D 

1:D 

1:D 

1:D 

1:D 

1:D 

1:D 

2:D 

2:0 

2:0 

3:D 

3:D 

4:D 

4:0 

4:0 

3:0 

3:0 

3:1 

3:1 

3:1 

3:1 

3:0 

3:0 

3:0 

3:0 

1:0 

1:0 

1:1 

1:1 

1:1 

1:0 



1 

1 

1 

1 

1 

1 

1 

1 

1 

3 

1 



12 

1 

1 

1 



12 







2 

4 

6 

6 

18 

18 

18 







4 

6 

6 



{$1 PRINTER:} 

(* *) 

C* Listing 4.20: Procedure definitions and calls. *) 

(* *) 

{SR-} 

progran CKUQzMS)z.^lOCS} 

procedure A; 
begin eid; 

procedure B; 




procedure C; 
begin av3; 



begin {B} 



B; { Recursive call } 

C; { Call child procedure } 

A; { Call procedure at same level } 



begin 



end. 



end; 



A; 

B; 



SE)GMENT_NaHE : CRLLSfiND SBGLNPM : 1 
TOTOL IROCECORES : 4 SBG_lTOt.Il©EX : 
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Listing 4-20 (continued) 



HOC # POOTlSEC lex PAEAMS DftTA STflPT CfESET SIZE $STBE?r SEXTT 
1 CALLSflND 4 1 42 8 022A 0230 

Offset (S): Mnemcnic Pari Par2 Hexcode Opcode 



0(0000) 


NOP 




D7 


NDP 


1(0001) 


^DP 




D7 


NOP 


2(0002) 


CLP 


2 


CE02 


Call Local Procedure 


4(0004) 


CLP 


3 


CE03 


Call Local Procedure 


6(0006) 


RBP 





ClOO 


Return Base Procedure 



HOC # ROCOLSBG LEX PAEAMS EftlA STBECT OFFSET SIZE $STARr $EXIT 
2 CRLLSAMD 10 1 2 0200 0200 

Offset ($) : Mnemcxuc Pari Par2 Hexcode Opcode 



0(0000): 



ENP 



ADOO 



Ketum Non-Base wrocedure 



HOC # ROCOLSEG LEX PAEAMS DKia STfiRT OFFSET SIZE $STABT $EXIT 
3 CALLSAND 1 1 24 8 0218 021E 

Offset ($): MrMDcnic Pari Par2 Hexcode Opcode 



0(0000) 


OGP 


3 


CF03 ( 


2(0002) 


CLP 


4 


CE04 < 


4(0004) 


CGP 


2 


CF02 < 


6(0006) 


RNP 





PDQO ) 



Call Global Procedure 
Call Local Procedure 
Call Global Procedure 
Return Non-Base Procedure 



HOC * IOCT_SBG LEX PARAMS DATA START Cff-FSET SIZE $START §EXIT 
4 CALLSAND 2 1 12 2 020C 020C 

Offset ($): Mnancnic Pari Par2 Hexcode C^xxide 



0(0000): FNP 



ADOO 



Return Non-Base Procedure 
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Listing 4-21 



1 

2 
3 
4 

5 
6 
7 
8 
9 
10 
U 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 
38 
39 
40 
41 



1 
1 
1 
1 

1 
1 
1 

1 
1 
1 
7 
7 
7 
7 

7 
7 
7 
7 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



1:D 
1:D 
1:D 
1:D 
2:0 

2:0 
2:0 
1:0 
1:0 
2:D 
2:0 
2:0 
3:D 
3:D 
4:D 
4:0 
4:0 
3:0 
3:0 
3:1 
3:1 
3:1 
3:1 
3:0 
3:0 
3:0 
1:0 
1:0 
1:1 
1:1 
1:1 
1:0 



1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
1 
1 
1 
1 



12 



12 

1 



12 

1 

1 

1 



12 







2 

4 

6 

6 

18 

18 







4 

7 

7 



{$1 PRINTER:} 

(* *) 

(* Listing 4.21: Segment procedure calls. *) 

(* *) 

{$R-} 

program CRII£JiNI>_PROCS; 

segmait procedure E; 



begin eni; 

begin end; {B} 

procedure A; 
begin end; 

procedure D; 



procedure E; 
begin end; 



begin {D} 

E; 
D; 
A; 

aid; 



begin 



end. 



A; 
B; 



SElGMEMLNfiME : CALLSAND SE!G_NUM : 1 
TOTAL PECCEDURES : 4 SEG_NLIM_INDEX : 
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Listing 4-21 (continued) 



PROC # ROar_SBG LEX PflEAMS DftTA SUmS OFFSET SIZE SSTAEO' $EXIT 
1 CALLSMJD 4 2 42 9 042A 0431 

Offset ($) : Mnanonic Pari Par2 Hexcode Opcode 



(0000) 


NOP 




D7 


lOP 


1(0001) 


NOP 




D7 


NOP 


2(0002) 


CLP 


2 


CB02 


Call Local Procedure 


4(0004) 


CXP 


7 


1 0)0701 


Call External Procedare 


7(0007) 


RBP 





ClOO 


Return Base Procedure 



H?OC # ROOT:.SBG LEX PARAMS DMA START OFFSET SIZE SSTART $EXIT 
2 CALLSAND 10 2 2 0400 0400 

Offset {$): Mnemonic Pari Par2 Hejscode Opcode 



0(0000): BNP 







ADOO 



Return Noti-Base Procedure 



IROC # R(Xrr_SBG LEX PARAMS EftTA START OFFSET SIZE $START $EXIT 
3 GALIUM© 1 2 24 8 0418 041E 
Offset (S): Mnemonic Pari Par2 Hexcode Opcode 



0(0000) 


CLP 


4 


CE04 ( 


2(0002) 


CGP 


3 


CF03 ( 


4(0004) 


CGP 


2 


CF02 ( 


6(0006) 


RNP 





ADOO ] 



Call Local Procedure 
Call Global Procedure 
Call Global Procedure 
Return Non-Base Procedure 



FRX # ROOT_SBG LEX ERRAHS DATA START CFFSET SIZE SSTART SEXIT 
4 CALLSAMD 2 2 12 2 040C 040C 
Offset ($): Mnemonic Pari Par2 Hexcode Opcode 



0(0000): RNP 



ADOO 



Return Non-Base Procedure 



SBGMENT;_NaME : B 
TOTAL PROCEDURES : 2 



SBG_NOM : 7 
SBtL.NUll.DIiEX : 1 
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Listing 4-21 (continued) 



H?DC # ROar_SEC LEX PARAMS DATA START OFFSET SIZE $START $EXIT 
1^ 1001 12 2 020C 020C 

Offset ($): Mnanoiic Pari Par2 Hexcode Opcode 

0(0000): raiP ADOO Return Non-Base Procedure 



HOC # ROOTlSEG lex PARAMS data START OFFSET SIZE $START $E2CIT 
2B 200102 0200 0200 

Offset ($): Mnanonic Pari Par2 Hexcode Opcode 

0(0000): RNP AMD Return Ncn-Base Procedure 
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Listing 4-22 



1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

U 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 



1 
1 
1 
1 

1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 



1:D 

1:D 

1:D 

1:D 

1:D 

1:D 

1:D 

1:D 

1:D 

1:D 

1:D 

1:D 

2:D 

2:0 

2:0 

2:1 

2:1 

2:0 

2:0 

2:0 

1:0 

1:0 

1:1 

1:1 

1:0 



1 
1 
1 
1 
1 
1 
1 
1 
1 
3 
3 
4 
3 



3 
3 
16 
16 



8 



(* *) 

(* Listing 4.22: Functiai calls. *} 

I* ' 

(***************************************************************) 

{SR-} 

program INVCKIN3_FUNCTICNS; 

var I ; integer; 

function II: integer; 
begin 



II 



0; 



end; 



begin 



II; 



8 end. 



SBGMEJnLNaME : INVOaNG SEXLNDM : 1 
lOEAL IKXnXIRES : 2 SE)G_Nfflt.INDEX : 
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Listing 4-22 (continued) 



IKX # ROCrri.SEG lEX PARAMS DfilA START OFFSET SIZE $START $EXIT 
1 INVOCTNG 4 2 1 16 10 0210 0218 

Offset ($): Mnemonic Pari Par2 Hexcode Opcode 



0(0000) 


: NOP 




D7 


NDP 


1(0001) 


: NOP 




D7 


NOP 


2(0002) 


HJ£H 





00 


Load Constant 


3(0003) 


rosH 





00 


Load Constant 


4(0004) 


CLP 


2 


CW2 


Call Tnrwl PrncoHiiro 


6(0006) 


SRO 


3 


ffiOB 


Store Global Word 


8(0008) 


RBP 





ClOO 


Return Base Procedure 



FROC # ROCnLSBG LEX ERRAMS DATA START OFFSET SIZE SSTART $EXIT 
2 INVOKING 14 1 5 0200 0203 

Offset ($) : Mnemonic Pari Par2 Hexcode Opcode 



0(0000) 
1(0001) 
3(0003) 



HJ£E 

STL 

RNP 



00 Load Constant 

CCQl Store Local Word 

ADOl Return Non-Base Procedure 
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Listing 4-23 Pascal Program 



FKOGRfiM TEST_PISASSIMBLERS; 
VHR I,J:INTE!GER; 

B:BCX)LEftN; 

CrCHAR; 

R:RERL; 

S:SET OF 1..15; 

PrPACKED ARRAY [0..15] OF BOObEAN; 
RSrPACKED REOCKD 

IrlNTBGHR; 
B:BOOLERN; 
C:CHAR; 

A:PACKID ARRAY [0..5] OF CHAR; 
C2:CHAR; 
R:REAL; 

END; 



PR0CEIX3RE TSTPHDC; BEGIN END; 
FUNCTION TSTFlMCTzINmGER; 
BEX3IN TSTTONCr := 0; EWD; 



BECIN 



I:=0; 

J:=I; 

B:=FALSE; 

C:= 'A'; 

R:=l.l; 

S:= [1,2,3,15]; 

R:= I + J * 5.5 - (6.6 / I); 

IF (R<=I) THEN J := aBONCCR); 

WHILE (I < 10) DO I := I+l; 

FCR J := ID 100 DO R := R + 0.01; 

REPEAT 

I := I - 1; 

UNTIL I <= 0; 

FOR I := TO 15 DO P [I] := FALSE; 

RS.I := 0; 

RS.B := IRUE; 

RS.C := 'A'; 

RS.A [3] := RS.C; 

RS.R := 1.1; 

RS.C2 := RS.A [3]; 

TSTPROC; 

I := TSTTONCT; 



END. 
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Listing 4-24 Dump p-Code 

DtMPCXIK Of file TEST.DIS.COra 

Segnent: No: Size: Addr: SegRlnd: Text: 

TESIDlSk 0114 0001 LINKED 

Dump of Segoent Tale for segnent 
Se^ = 1 Num Frocs - 3 
1: OlOA 2: OOOA 3: OOIA 



Listing of disassembled code for segnent 


Begin Proc: 






0000: 


AD 00 


FNP 









Data Sepient Size: 0000 






Parameter Size: 0000 






Exit IC: 


0000 






Ehtry IC: 


0000 






Lex Level: 1, 


Procedure No. 


Begin Proc: 






OOOC: 


00 


■STjr 





GOOD: 


cx: 01 


STL 


1 


OOOF: 


AD 01 


mp 


1 






Data Segnent Size: 0000 






l^ameter Size 


i: 0004 






Exit IC: 


OOOF 






Entry IC: 


OOOC 






Lex Level: 1, 


Procedure No.; 


Begin 


Proc: 






OOIC: 


D7 


NDP 




OOID: 


D7 


K)P 




OOIE: 


00 


sjr 





OOIF: 


AB 04 


SRO 


4 


0021: 


E8 


srjm 


4 


0022: 


AB 03 


SRO 


3 


0024: 


00 


srre 





0025: 


AB 05 


SRO 


5 


0027: 


41 


.sr,rr 


65 


0028: 


AB 06 


SRO 


6 


002A: 


A5 07 


LMD 


7 


002C: 


B3 02 


uc 


2,8C3PCDCC 


0032: 


BD 02 


SIM 


2 


0034: 


C7 F2 7F Tiiri 


32754 


0037: 


91 


NGI 




0038: 


01 


.sr.It: 


1 


0039: 


AO 01 


ADJ 


1 


003B: 


AB 09 


SRO 


9 


003D: 


A5 07 


uo 


7 


003F: 


EB 


.STDO 


4 


0040: 


EA 


.srro 


3 


rrnir 


BT D2 00 IBC 


2,60400000 ' 


0048: 


89 


FLO 




0049: 


90 


MFR 




004A: 


89 


FLO 




004B: 


83 


ADR 




004C: 


B3 02 


JIT. 


2,D3403333 


0052: 


EB 


SLEO 


4 


0053: 


8A 


FLT 




0054: 


87 


DVR 




0055: 


96 


SBR 




0056: 


BD 02 


sm 


2 


0058: 


A5 07 


UD 


7 
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Listing 4-24 (continued) 



005A: BC 02 

005C: EB 

005D: 8A 

005E: B4 02 

0060; Al 08 

0062: A5 07 

0064: BC 02 

0066: 9E 17 

0068: AB 03 

006A: EB 

006B: OA 

006C: C9 

006D; Al 07 

006F: EB 

0070: 01 

0071: 82 

0072: AB 04 

0074: B9 F6 

0076: 00 

0077: AB 03 

0079: 64 

007A: AB 13 

007C: EA 

OOTE: AS 13 

007F: C8 

0080: Al 16 

0082: A5 07 

0084: A5 07 

0086: BC 02 

0088: B3 02 

008E: 83 

008F: BD 02 

0091: EA 

0092: 01 

0093: 82 

0094: AB 03 

0096: B9 F4 

0098: EB 

0099: 01 

009A: 95 

009B: AB 04 

009D: EB 

009E: 00 

009F: C8 

OOAO: Al F2 

00A2: 00 

00A3: AB 04 

00A5: OF 

00A6: AB 13 

00A8: EB 

00A9: A9 13 

00 AB: C8 

00 AC: Al 12 

OOAE: A5 OA 

OOBO: EB 

OOBl: 00 

00B2: OF 

00B3: 88 

00B4: CO 10 01 

00B7: 00 

00B8: BB 



lOl 


2 


srro 


4 


FLT 




LBQ- 


2 


FJP 


006A 


LSD 


7 


UM 


2 


OJP 


BOUND 


SPD 


3 


,sr,ro 


4 


.sr,rr 


10 


LESI 




FJP 


0076 


.srro 


4 


STjr 


1 


ADI 




SHD 


4 


HIP 


-10 


srrc 





SRO 


3 


.sr,nc 


100 


SRO 


19 


SLDO 


3 


TT-»r\ 


19 


IMA^ 


LEQI 




FJP 


0098 


IAD 


7 


I/O 


7 


ITM 


2 


IDC 


2,233C0AD7 


ADR 




SIM 


2 


SLDO 


3 


.sr,nc 


1 


ADI 




SRO 


3 


UJP 


-12 


srro 


4 


sr,rc 


1 


SBI 




SHO 


4 


.sr,ro 


4 


Kr,rc 





r,nQi 




FJP 


-14 


.sr.Tx: 





SRO 


4 


.sT,nc 


15 


SRO 


19 


.sr,no 


4 


UX) 


19 


LBQI 




FJP 


OOCO 


LAD 


10 


.sr,no 


4 


,sr,nc 





Rr,rc 


15 


CHK 




IXP 


16, 1 


sr,T)C 





STP 
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Listing 4-24 (continued) 



00B9: 


EB 






srro 


4 


OOEA: 


01 






.sr,nn 


1 


OOBB: 


82 






ADI 




OOBC: 


AB 04 






SRD 


4 


OOBE: 


B9 FO 






tup 


-16 


OOCO: 


00 






srrc 





0(0: 


AB OB 






SRO 


11 


OOQ: 


A5 OC 






LAD 


12 


00C5: 


01 






srrc 


1 


00C6: 


00 






.srrc: 





00C7: 


01 






sux 


1 


00C8: 


BB 






£TP 




0OC9: 


AS OC 






UD 


12 


fin/'^D. 


no 








n 




WW 








O 


oooci 


08 






.srir 


8 


OOCD: 


41 






srrc 


65 


OOCE: 


BB 






STP 




OOCF: 


AS OD 






uo 


13 


OODl: 


03 






Fjrc 


3 


00D2: 


00 






.sr,nc 





00D3: 


05 






RTfC 


S 


00D4: 


88 






CHK 




00D5: 


AS OC 






uo 


12 


00D7: 


08 






SLDC 


8 


00D8: 


08 






,sr,rc 


8 


00D9: 


BA 






LCP 




OODA: 


BF 






SIB 




OODB: 


AS 11 






UD 


17 


OODD: 


B3 02 1 


DO 




Tjr. 


2,8C3PCDCC 


00E4: 


BD 02 






sm 


2 


00E6: 


AS OD 






L«3 


13 


00E8: 


03 






Kr,Tr 


3 


00E9: 


00 






.srrc 





OOER: 


OS 






.Sr,TTC 


5 


00£B: 


88 






CHK 




OOBC: 


BE 






liB 




COED: 


AB 10 






SRO 


16 


OOEF: 


CE 02 






CLP 


2 


OOFl: 


00 






sr,rc 





0OF2: 


00 






srrc 





00F3: 


CE 03 






CLP 


3 


OOFS: 


AB 04 






SRO 


4 


00F7: 


CI 00 






EBP 









JTAB[ 


-16] = 00A8 






JTKBl 


-14] = 0098 






JmB[- 


-12] = 007C 






JTAB[' 


-10] = 006A 






Data ; 


Segment Size: 0022 






itacemefcer Sizer 


"0004 






Exit : 


rc: 




0OF7 






Entry 


IC 




OOIC 






Lex Level: 0, Ptocjedure No.: 1 
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Listing 4-25 DECODE 



SBCMKILJWME : TESTOISA SEXJJDM : 1 
TOTMi HfflCEDORES : 3 SBQJCIt.IMMX : 



HOC # ROat-SBG LEX ERRfiMS EATA STfiRT OFFSET SIZE SSTART SEXIT 
1 TESmiSA 4 34 1 28 221 021C 02F7 

Offset ($): Mnanonic Pari Par2 Hexcode C^x»de 



0(0000): 


NOP 




D7 


NOP 


1(0001): 


NOP 




D7 


NOP 


2(0002): 


PtlSH 





00 


Load Constant 


3(0003): 


SRO 


4 


AB04 


Stoce Global Word 


5(0005) : 


SLDO 


4 


tB 


Load Global Word 


6(0006): 


SRO 


3 


pptn 


Store Global Word 


8(0008): 


PUSH 





00 


Load Ctonstant 


9(0009) : 


SRO 


5 


AB05 


Store Global W&rd 


IKOOOB): 


POSH 


65 


41 


Load Constant 


12(000C): 


SRO 


6 


AB06 


Store Global W&rd 


14(000E): 


hfO 


7 


A507 


Load Global Address 


16(0010): 


TIT. 


2 16268 
-13107 


B3028C3F 
CDCC 


Load Multiple Constant 


22(0016): 


STM 


2 


BD02 


Store Multiple Vkxi 


24(0018): 


LDCI 


32754 


CVF2/F 


Load Constant 


27(001B): 


NGI 




91 


2-s Complement 


28((K)1C): 


PUSH 


1 


01 


Load Constant 


29(001D): 


ADJ 


1 


AOOl 


Adjust Set 


31(001F): 


SRO 


9 


AB09 


Store Global Word 


33(0021): 


LAO 


7 


A507 


Load Global Address 


35(0023): 


SLDO 


4 


£B 


Load Glctal Wbrd 


36(0024): 


SEDO 


3 


EA 


Load Glnhnl Word 


37(0025): 


LDC 


2 16560 



E802B040 
0000 


Load Multiple Cisnstant 


44(0020: 


FLO 




89 


Float (TOS) Integer -> Real 


45(002D): 


MPR 




90 


Multiply Real 


46(002E): 


FLO 




89 


Float (TOS) Integer -> Real 


47(002F): 


AER 




83 


Add Real 


48(0030): 


LDC 


2 16595 
13107 


E302D340 
3333 


Load Multiple Constant 


54(0036): 


STJX) 


4 


ES 


Load GldDal Word 


55(0037): 


FLT 




8A 


Float (TOS-1) Integer -> Real 


56(0038): 


DVR 




87 


Divide Real 


57(0039): 


SBR 




96 


Subtract Real 


58(003A): 


sm 


2 


ED02 


Store Multiple Word 


60(0030: 


UO 


7 


A507 


Trtad Global Address 


62 (003 E): 


LCM 


2 


BC02 


Load Multiple Wbrd 


64(0040): 


SLDO 


4 


£B 


Tmd Global Word 


65(0041): 


FLT 




8A 


Float (TOS-1) Integer -> Real 


66(0042): 


T.nQREAL 


2 


B402 


CXntpare 


68(0044) : 


FJP 


78 


A108 


Jutip If False 


70(0046): 


LAD 


7 


A507 


Load Global Address 


72(0048): 


LDH 


2 


Bm2 


Load Multiple Word 
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Listing 4-25 (continued) 



74(004A): 


RND 


23 


9E17 


Call Standard Procedure 


76(0040: 


SRO 


3 


AB03 


Store Gl<*fll Word 


78(004E): 


SLDO 


4 


EB 


r,oad Global Word 


79(004F): 


HJSH 


10 


OA 


Load Constant 


80(0050): 


LESI 




C9 


Ciiupare 


81(0051): 


FJP 


90 


A107 


Jump If False 


83(0053): 


RT,no 


4 


m 


I«ad Global Word 


84(0054): 


PUSH 


1 


01 


Load Ccsistant 


85(0055): 


ADI 




82 


Add 


86(0056) : 


SRO 


4 


AB04 


Store Glctoal Word 


88(0058) : 


UjP 


78 


B9F6 


Unconditional Jump 


90(005A): 


PUSH 





00 


Load Cixistant 


91(005B): 


SRO 


3 


ABn3 


Store Global Word 


91 f nnsni • 


PU^ 


100 


64 




94(665E): 


SRO 


'19 


AB13 


Store Global Word 


%(0060): 


sr.no 


3 


EA 


Load Global Word 


97(0061): 


LDO 


19 


A913 


Load Global Word 


99(0063): 


LEQI 




C8 


Cimpare 


100(0064): 


FJP 


124 


A116 


Jump If False 


102(0066): 


UC 


7 


A507 


Load Global Address 


104(0068): 


UD 


7 


A507 


road Global Address 


106 (006 A): 


EEM 


2 


BC02 


Load Multiple Word 


108(0060 : 


LDC 


2 15395 
-10486 


B302233C 
0AD7 


Load Multiple Ccxistant 


114(0072): 


ADR 




83 


Add Real 


115(0073): 


sm 


2 


ED02 


Store Multiple Word 


117(0075): 


sue 


3 


EA 


Load Global Word 


118(0076) : 


PUSH 


1 


01 


Load Constant 


119(0077): 


ADI 




82 


Add 


120(0078): 


SHU 


3 


ABOI 


Store Global Word 


122(007A): 


UJP 


% 


69F4 


Unconditional Jtsnp 


124(0070: 


Sim 


4 


EB 


Load Global Word 


125(007D): 


POSH 


1 


01 


Load Constant 


126(007E): 


SBI 




95 


Subtract 


127(007F): 


SRO 


4 


AB04 


Store Global Word 


129(0081): 


SLDO 


4 


EB 


Load Gl(±al Word 


130(0082): 


PUSH 





00 


Load Constant 


131(0083): 


LBQI 




cs 


Cuiipare 


132(0084): 


FJP 


124 


A1F2 


Jump If False 


134(0086): 


PUSH 





00 


Load Caistant 


135(0087): 


SRO 


4 


AB04 


Store Global Word 


137 (0089) : 


PUSH 


15 


OF 


Load Ccxistant 


138(008A): 


SRO 


19 


AB13 


Store Glctol Word 


140(0080: 


SLDO 


4 


EB 


Load Global Word 


141(008D): 


LDO 


19 


A913 


Load Global Word 


143 (008F) : 


LEQI 




C8 


Conpare 


144(0090): 


FJP 


164 


A112 


Junp If False 


146(0092): 


UO 


10 


A50A 


Load Global Address 


14aiUlQa4Ii. 


sua 


4 


...ffl^, .. 


I^oad Global Word 


149(0095) : 


PUSH 





00 


load Craistant 


150(0096): 


PUSH 


15 


OF 


Load Ccxistant 


151(0097): 


CHK 




88 


Range Check 


152(0098): 


IXP 


16 1 


COlOOl 


Index Pacdced Array 


155(009B): 


PUSH 





00 


Toad Constant 


156(0090: 


b'l'P 




BB 


Store Packed Field 


157(009D): 


SLDO 


4 


EB 


Load Global Word 


158(009E) : 


PUSH 


1 


01 


Toad CcMistant 


159(009F): 


ADI 




82 


Add 


160(OOflO): 


SRO 


4 


AB04 


Store Global Word 


162(00A2): 


UJP 


140 


B9F0 


UnccHiditional Jurrp 


164(00A4): 


puaj 





00 


Lc»d Constant 
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Listing 4-25 (continued) 



165(00fl5): 


SRO 


11 


ABOB 


Store Global Word 


167(00A7): 


UO 


12 


flSOC 


Load Glctel Address 


169(00A9) : 


PUSH 


1 


01 


Load Constant 


170(00AA): 


PUSH 





00 


Load Caistant 


171(00AB): 


POSH 


1 


01 


road Constant 


172(00AC): 


STP 




BB 


Store Packed Field 


173(00AD): 


LPD 


12 


A50C 


Load Glctoal Address 


175(00AF): 


PUSH 


8 


08 


Load Caistant 


176(OOB0): 


PUSH 


8 


08 


Load Ccaistant 


177 (OOa): 


PUSH 


65 


41 


Toad Caistant 


178(00B2) : 


STP 




BB 


Store Packed Field 


179(00H3) : 


LflD 


13 


flSOD 


Load Glohal Address 


181(00B5): 


PUSH 


3 


03 


Load Caistant 


182(0086): 


poai 





00 


Load Constant 


183(00B7): 


PUSH 


5 


05 


Load Constant 


184(0088): 


CHK 




88 


Range Check 


185(00B9): 


UO 


12 


A50C 


Load Global Address 


187 (COBB): 


POSH 


8 


08 


Load Constant 


188 (ODBC): 


PUSH 


8 


08 


Load Constant 


189(00BD) : 


LCP 




BA 


Load Packed Field 


190(00BE): 


SIB 




BF 


Store Byte 


191(00BF): 


LPD 


17 


A511 


Load Global Address 


193 (OOa): 


UX 


2 16268 

-13107 


B3028C3F 

OXJC 


Load Multiple Constant 


200(00C8): 


sm 


2 


ED02 


Store WiLtiple Word 


202(00CA): 


lA) 


13 


A50D 


Load Global Address 


204(00CX:): 


POffl 


3 


03 


Lead Constant 


205(00CD): 


POSH 





00 


Load Qxistant 


206(0001): 


HIS? 


5 


05 


Load Constant 


207(00CF): 


OJK 




88 


Remge Chedc 


208(00D0): 


UB 




BE 


Load ^te 


209(00D1): 


SRO 


16 


ABIO 


Store Global Word 


211(0CD3): 


CLP 


2 


CEM2 


Call Local Procedure 


213(00D5): 


PUSH 





00 


Load Constant 


214(00D6): 


POSH 





00 


Load (ixistant 


215(0OD7): 


CLP 


3 


CE03 


Call Local Procedure 


217(00D9): 


SRO 


4 


AB04 


Store GlohaT WOrd 


219(00DB) : 


RBP 





aoo 


Return Base Procedure 



PKOC # ROCIP_SEG LEX PRRAHS DKEA START OFFSET SIZE SSTART SEXTT 
2 TESTDISA 10 1 2 0200 0200 

Offset ($): Mnemonic Pari Par2 Hexcode Opxide 



0(0000): RNP 



ADOO 



Return Non-Base Procedure 



HOC # RDOILSBG LEX 


PARAHS 


EKER 


aTAPT OFFSET SIZE 


$START $EXIT 


3 raSTOISA 1 


4 





1 


12 5 


020C 020F 


Offset ($): 


Mnemcnic 


Pari 


Par2 


Bexcode 


Opcode 




0(0000): 
1(0001): 
3(0003): 


PUSH 

STL 

RNP 




1 
1 




00 

CCOl 

ADOl 


Load Constant 

Store Local Word 

Return Non-Base Procedure 
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Listing 4-26 Pascal Disl< Utility (PDQ) 



MM P-OODE ASSEMBLER [1.1] 



00 



00:D7 
01:D7 
02:00 
a3:AB 04 
05:^ 
06:AB 03 
08:00 
09:AB 05 
06:41 
OC:AB 06 
0EsA5 07 
10:B3 02 
12: 8C 3F 
14: CD CX; 
16:BD 02 
18:C7 F2 7F 
1B:91 
1C:01 
1D:A0 01 
1F:AB 09 
2i:A5 07 
23:£B 
24:EA 
25:B3 02 
28: BO 40 
2A: 00 
2C:89 
2D:90 
2E:89 
2F:83 
30:B3 
32; D3 
34: 33 
36:EB 
37:8A 
38:87 
39:96 
3A:BD 02 
3C:A5 07 
3E:BC 02 
40:EB 
41:8A 
.42AB4A2 
44:A1 *» 
46:A5 07 
48:BC 02 
4A:9E 17 
4C:AB 03 
4E;EB 
4F:0A 
50:C9 
51:A1 ** 
53:EB 
54:01 
55:82 



02 



33 



.UQC 




.wsm 4 




.DKEA 34 




.I«X 1 




IDP 




K)P 




Fiir. 





SRO 


4 


fTTO 


4 


SRO 


3 


RTfC 





SRO 


5 


.STjr: 


65 


SRO 


6 


uc 


1 


IDC 


2, 




16268 




-13107 


SIM 


2 


LlXl 


32754 


N3I 




Fsrc 


1 


ADJ 


1 


SRD 


9 


UO 


7 


SLDO 


4 


RTJX) 


3 


UX. 


2r 




16560 







FLO 




HPR 




FLO 




ADR 




IDC 


2, 




16595 




13107 


SLDO 


4 


FLT 




DVR 




SBR 




SIM 


2 


Lao 


7 


ITM 


2 


STDO 


4 


FLT 




.LE)QREftL. 


FJP 


P106 


UO 


7 


IDM 


2 


TNC(P) 




SHU 


3 


P106 SLDO 


4 


SLDC 


10 


TiFSI 




FJP 


P118 


srro 


4 


RTDC 


1 


ADI 
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Listing 4-26 (continued) 



56:AB 04 
58:B9 F6 
5A:00 
5B:AB 03 
5D:64 
5E:AB 13 
60:EA 
61:A9 13 
63:C8 
64:A1 ** 
66:A5 07 
68:A5 07 
6A:BC 02 
6C:B3 02 
6E: 23 3C 
70: OA D7 
72:83 
73:BD 02 
75:EA 
76:01 
77:82 
78:AB 03 
7A:^ F4 

/C:iib 
7D:01 
7E:95 

7F:AB 04 

81:EB 

82:00 

83:C8 

84:A1 F2 

86:00 

87:AB 04 

89: OF 

8A:AB 13 

8C:EB 

8D:A9 13 

8F:C8 

90:A1 ** 

92:A5 OA 

94:EB 

95:00 

96:0F 

97:88 

98:C0 10 01 

9B:00 

9C:BB 

9D:EB 

9E:01 

9F:82 

AO:AB 04 

A2:B9 FO 

A4:00 

A5:AB OB 

A7:A5 OC 

ft9:01 

AA:00 

AB:01 

AC:BB 

flD:A5 OC 

AF:08 



SI» 


4 


OJP 


P106 


P118 sr,nc 





SRO 


3 


RTtTTC 


100 


SED 


19 


P124 Rr.DO 


3 


IW 


19 


LFQI 




FJP 


P152 


LSO 


7 


LfiO 


7 


im 


2 


U3Z 


2, 




15395 




-10486 


Am 




SM 


2 


RTiTX) 


3 


.sr,nc 


1 


ADI 




SRD 


3 


UJP 


P124 




« 


Fj.3^ ouuu 


t 


fsrc 


1 


SBI 




SRD 


4 


.sr.no 


4 


,sr,ix 





LEQI 




FJP 


P152 


SLDC 





SRD 


4 


Rr,Tx: 


15 


SRO 


19 


P168 srro 


4 


LDO 


19 


LBQI 




FJP 


P192 


LSD 


10 


SLDO 


4 


Rr,nc 





SLDC 


15 


CHK 




IXP 


16,1 


.sr,nc 





SIP 




sux> 


4 


,sr.Tx; 


1 


ADI 




SRD 


4 


UJP 


P168 


P192 KTiDC 





SRD 


11 


LJO 


12 


.sr,nc 


1 


.sr,TC 





.sr,rc 


1 


yi'p 




uo 


12 


,sr.rc 


8 
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Listing 4-26 (continued) 



B0:08 




RTJTC 


8 


Bl:41 




,sr,ir 


65 


B2:BB 




STP 




B3:A5 OD 




uo 


13 


B5:03 




.sr,nc 


3 


86:00 




sux 





B7:05 




.srjTC 


5 


B8:88 




UJK 




B9:A5 OC 




UD 


12 


BB:08 




sr-nc 


8 


BC:08 




.srrc 


8 


BD:BA 




LCP 




BE:BF 




STB 




aetlS ii 




MO 


17 


a:B3 02 




ICC 


2, 


C4: 8C 3F 






16268 


C6: CD CC 






-13107 


C8:BD 02 




sm 


2 


CA:A5 OD 




uo 


13 


CX::03 




sux: 


3 


CD:00 




srjnr 





CE:05 




sux: 


5 


CF:88 




CHK 




D0:BE 




IJTB 




D1:AB 10 




SRD 


16 


D3:CE 02 




CLP 


2 


D5:00 




RTJir 





D6:00 




RTJTC 





D7:CE 03 




CLP 


3 


D9:AB 04 




SRO 


4 


DB:a 00 


EXIT 


RBP 







.ux 


1 






.HU»M 






.EKEA 






.HBC 2 




F0:AD 00 


EXIT 


RNP 







.UE5C 


1 






.VMtm 4 






.DAXA 






.HOC 3 




FC:00 




wn: 





ro:CC 01 




STL 


1 


00^«>01 


HOT 


mp 


1 



.QID 
ESSCeS FUtGGED CM THIS ASSQffiL^ 
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Section Two 
Internal Operation of the p-Machine 



J 



5 

An Explanation of the 
.^ P-code Instructions 



In this section the various p-codes will be described. Each p-code will be 
discussed separately in a fashion not unHke that used by various manuals on 
assembly language programming. 

The Apple Pascal "p-Machine" (the hardware diat die p-code interpreter 
emulates) contains eight registers. These registers are: 

SP: Stack pointer. This is a pointer to the top of die evaluation stack. It 
is used to pass parameters, return function values and as an operand 
source for several of die p-Machine instructions. Data is pushed 
onto the stack widi die load instructions and popped oflFof the stack 
widi die store instructions. On die 6502 (and die Apple in partic- 
ular) the 6502 stack pointer and the p-Machine stack pointer are 
one and the same. 

IPC: Interpreter program counter. This register points at die address of 
the next p-Code instruction to be fetched. In the 6502, the IPC 
register is maintained as a pair of zero page memory locations so 
that p-codes and any data following die instructions is easily obtained 
^y using die indirect, post-indexed by Y addressing mode. 

SEG: A pointer to die procedure dictionary of the segment to which die 
currendy executing procedure belongs. On die 6502 SEG is main- 
tained as a pair of zero page memory locations. 

JTAB: A pointer to die jump table for die currendy executing procedure. 
This pointer is maintained as two zero page memory locations on 
6502 versions of the p-Machine. 
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KP: Program stack pointer. This is a pointer to the top of the program 
stack. Storage for variables, as well as space for any SEGMENT 
PROCEDURES are allocated on the program stack. The program 
stack starts in high memory and grows downward. On 6502 ver- 
sions of the p-Machine, KP is maintained as a pair of zero page 
memory locations. 

MP: Markstack pointer. This is a pointer to the base of the activation 
record for the currently executing procedure. Its value is always 
greater than KP and die space between KP and MP is the number 
of bytes allocated for local variables. On the 6502, MP is maintained 
as a pair of zero page memory locations. 

NP: New pointer. This is a pointer to the p-Machine heap. The p-Machine 
heap starts in low memory and grows upward. The heap is where 
all dynamic variables are maintained. Dynamic variables are allo- 
cated with the NEW procedure and de-allocated with the RELEASE 
"rocedure. The heap is also used to allocate storage for user hard- 
ware drivers using ±c ATTACH.BIOS routines. On the Apple II, 
NP is maintained as a pair of zero page memory locations. 

BASE: This is a pointer to die activation record of the most recendy invoked 
base procedure. A base procedure is a main procedure such as die 
main program in a program listing or the latest invokation of a 
UNIT. Global variables are accessed by indexing off of the BASE 
register. BASE is maintained as a pair of zero page memory locations 
on the Apple II. 

For a complete description of how these registers are used and how die p- 
Machine operates you should consult Appendix B of die Apple Pascal Oper- 
ating System Reference Manual. Be ye forewarned, this material is not easy 
reading for someone who isn't well-versed in compiler theory and in fact it 
probably won't make sense at all. An understanding of how die p-Machine 
actually operates (in terms of variable allocation, procedure calls, et al.) is 
not required to understand how the individual p-codes fiinction, so a "human- 
engineered" description of die operation of die p-Machine will not be pre- 
sented here. That, alas, will be delegated to a future manual. 

rnstruction Formats 

All of the p-code instructions consist of a one-byte opcode followed by zero, 
one, two, or more bytes. In general, parameters to an instruction take one 
of five forms. They are: 
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UB: Unsigned byte. This type of parameter is a single byte that contains 
a value in the range 0..255. 

SB: Signed byte. This type of parameter is a single byte that is used to 
represent values in the range - 128..127. The value is stored in the 
standard two's complement format with bit #7 being used as the 
sign bit. 



DB: 



Identical to UB except the value is always in the range 0..127. 



B: Big parameter. This is a vanahlp lencn-h nir-im^^-*.^ *u^^ : u-_- 

long if it is being used to represent values in the range 0..127 and 
two bytes long if it is being used to represent values in the range 
128.. 32767. If an instruction uses a parameter of diis type the length 
of the B parameter is determined by looking at the first byte. If bit 
#7 is clear, then this parameter is a single byte representing a value 
m the range 0..I27. If die high order bit (bit #7) is set, dien the 
parameter is two bytes long. The high order bit of die first b\te is 
cleared and this byte is used as the high order byte of the resulting 
parameter. The second byte of die parameter is used as die low order 
byte of the parameter value. 

Examples: 

$01 — treated as the value $01 
$7F — treated as the value $7F 
$8100 — treated as the value $100 
$FFFF — treated as the value $7FFF 

Exceptions to diese parameter types will be noted where applicable. 

It wiU be assumed (as previously mentioned) diat die reader is somewhat 
famihar widi die operation of a stack-architecture machine. In particular it 
IS assumed tiiat die reader understands such terms as stack frames; activation 
records; static and dynamic links; and local, global, and intermediate vari- 
ables. The audior apologizes for not attempting to describe tiiese concepts, 
but such a discussion would require more space dian die rest of die manual 
takes up! 
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Constant (Immediate) Loads 

Syntax: SLDC UB (UB is a constant in the range 0..127) 
Opcode: 00-127 ($00-$7F) 
Operation: Push opcode onto stack 

The SLDC instruction (Short LoaD Constant) is used to load values in the 
range 0..127 onto the evaluation stack. The SLDC instruction is exactly 
one byte long. The high order bit of the instruction is zero and the low 
order seven bits contain the data to be pushed onto the p-Machine evalu- 
ation stack. Since only 16-bit words may be pushed onto the evaluation 
stack, this instruction pushes two bytes; the low order byte being pushed 
is the opcode itself, the high order byte pushed is a zero. 

The purpose of the SLDC instruction is to help reduce the size of the Pascal 
operating system. By performing a static analysis of the system the folks at 
UCSD determined that the constants used most often were in die range 
0..127 (this also corresponds, strangely enough, to the ASCII character 
set). Normal load immediate instructions require three bytes — one for the 
opcode and two for the data to be pushed. By using this special form of the 
load constant instruction, the Apple Pascal compiler is able to save two 
bytes every time a constant in the range 0..127 is used. (Historical note: 
As it tums'out, the SLDC opcode has been severely restricted in the version 
IV.O of the UCSD Pascal system. The folks at Softech Microsystems have 
completely redone the p-code interpreter and the new SLDC instruaion 
only loads the values in the range 0..31. The 96 opcodes freed up were used 
to optimize other operations in the UCSD p-machine. This information, 
however, only applies to the version IV.O of the UCSD Pascal system, it 
does not apply to the Apple Pascal system). 
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SLDC UB OPERATION: 



1. BEFORE 



IPC 



SLDC UB 



SP 



1 CODE 
2. ACTION 



STACK 



IPC- 



SLDC UB 



UB 



CODE 

COPY OPCODE ONTO 
TOP OF STACK 

3. AFTER 



STACK 



IPC 



SLDC UB 



SP 



UB 



CODE 



STACK 
155 



MP 



ACTIVATION RECORD 



MP 



ACTIVATION RECORD 



Syntax: LDCN 

Opcode: 159 ($9F) 

Operation: Push NIL (zero) onto the stack 

LDCN (load constant nil) is a single byte instruction that pushes zero onto 
the 6502 stack. This instruction is emitted by the Apple Pascal compiler 
whenever you set a pointer to NIL. 
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LDCIM OPERATIOIM: 



1. BEFORE 



IPC 



LDCN 



CODE 
2. ACTION 



SP 



SP 



MP 



STACK 



ACTIVATION RECORD 



00 



STACK 
PUSH A ZERO WORD ONTO THE STACK 



3. AFTER 



IPC 



LDCN 



SP 



00 



MP 



CODE 



STACK 



ACTIVATION RECORD 
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Syntax: LDCI W (W is a value in the range - 32768. .32767) 

Opcode: 199 ($C7) 

Operation: Pushes the one-word value W onto the stack 

LDCI (load constant immediate) pushes the one-word constant that follows 
the opcode onto the stack. This instruction is med to load constants that 
are greater than 127 onto the evaluation stack. The LDCI instruction is 
three bytes long — one byte for die opcode followed by two bytes of 
immediate data. 



158 



LDCI W OPERATIOIM: 



1. BEFORE 



IPC 



LDCI 






CODE 
2. ACTIOW 



i THREE 
BYTES 






IPC 



LDCI 



- - W 



CODE 
3. AFTER 



IPC 



LDCI 



.-- w 



SP 



CODE 



STACK 



w 



STACK 



SP 



MP 



ACTIVATION RECORD 



COPY "W" PARAMETER 
ONTO THE TOP OF STACK 



w 



MP 



STACK 



ACTIVATION RECORD 
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Local Loads and Stores 

Syntax: SLDL n (n is in the range 1..16) 

Opcode: 216..231 ($D8..$E7) 

Operation: Loads a local variable onto the evaluation stack 

The SLDL (Short LoaD Local) instruction is used to load a local variable 
onto the stack. The SLDL 1 instruction loads the first word of local storage 
onto the stack, the SLDL 2 instruction loads the second word of local 
storage onto the stack, etc. The SLDL instruction is one byte long with 
sixteen different opcodes being used for each local load instruction. The 
SLDL instruction was designed to help reduce the amount of code gener- 
ated by the Apple Pascal compiler. The first 16 (or so) variables in a pro- 
cedure or fiinction will be loaded from memory using this instruction, so 
scalar variables you use often should be declared as one of the first 16 defined 
variables. 



How the SLDL Instruction Works 

Whenever an SLDL instruction is executed the variable number (in the 
range (1..16) is doubled and this value is subtracted from the MP register 
to obtain the address of the variable to be loaded. The two bytes pointed 
at by this address calculation are pushed onto the evaluation stack. 
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SLDL n OPERATIOIM: 



1. BEFORE 



IPC 



SLDLn 



CODE 
2. ACTJOIM 



SP 



MP 



STACK 



ACTIVATION RECORD 




SP 



nTH VARIABLE 



COPY WORD FROM LOCATION 
MP - (n*2) ONTO THE STACK 

STACK 




ACTIVATION RECORD 



CODE 



SP 



nTH VARIABLE 



MP 



STACK 




1ST 16 



ACTIVATION RECORD 
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Syntax: LDL B 

Opcode: 202 ($CA) 

Operation: Load a local variable onto the evaluation stack 

Loads a local variable onto the evaluation stack. The LDL instruction is the 
long form of the SLDL instruction. It pushes scalar variables onto the stack 
that have an offset of 17.. 32767 words from the current activation record. 

LDL is a variable-length instruction. If it is pushing a variable with a word 
offset in the range 17.. 127 the LDL instruction is two bytes long with the 
second byte containing the word offset. If the LDL instruction is being 
used to push a variable with an offset in the range 128.. 32767 then the 
instruction is three bytes long with the word offset occupying the second 
two bytes (see the description of the "B" type parameter). Once the B 
parameter is fetched, it is multiplied by two and this value is then subtracted 
from the value in the MP register. The resulting difference is the address in 
memory of the variable in question. The two bytes pomted at uy tuis 
address are pushed onto the evaluation stack. 
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LDL B OPERATION: 



1. BEFORE 



iPC 



LDL 






SP 



CODE 
2. ACTION 



IPC 



LDL 






SP 



MP 



STACK 



ACTIVATION RECORD 




COPY WORD AT ADDRESS MP - (B*2) ONTO TOP OF STACK 
3. AFTER 



MP - (B*2) 



IPC 



LDL 



CODE 



SP 



VALUE 



MP 



STACK 



ACTIVATION RECORD 
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Syntax: LLA B 

Opcode: 198 ($C6) 

Operation: Loads the address of a local variable onto stack 

LLA (Load Local Address) loads the address of a local variable (as opposed 
to the actual data stored at that address) onto the evaluation stack. LLA is 
used when assigning pointer variables and when you are passing parameters 
by reference. Like the LDL instruction, LLA is a variable length instruction. 
It is two bytes long if you are pushing the address of a scalar with offset 
0..127 and three bytes long if you are pushing the address of a scalar with 
word offset 128..32767. 

The operation of the LLA instruction is similar to that of LDL— only 
simpler. After fetching die instruction operand (one or two bytes, see the 
description of "B" type parameters) the LLA instruction subtracts the oper- 
and value from die value contained in the MP register and pushes die 
difference. This difference is the address of the desired local variable. 
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LLA B OPERATION: 



1. BEFORE 



IPC 



LL^ 






CODE 



SP 



MP 



STACK 



ACTIVATION RECORD 



2. ACTION 



IPC 



LLA 



SP 



t- B j 



MP-|B*2) MP 



PUSH THE VALUE (MP - (B*2) ONTO THE STACK 



3. AFTER 



LLA 






IPC 



CODE 



SP 



MP-(2*B| 



MP 



1 STACK 



ACTIVATION RECORD 
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Syntax: STL B 

Opcode: 204 ($CC) 

Operation: Store top-of-stack (TOS) into a local variable 

This instruction is the inverse operation to the LDL instruction. It pops a 
word ofFof the evaluation stack and stores it at the word offset specified in 
the operand. As with any instruction having a "B" type parameter, the STL 
instruction is a variable length instruction requiring two bytes when storing 
into a variable with an offset of 0.. 127 and requiring two bytes when storing 
in a variable with an offset in the range 128. .32767. 

The operand (which is a word-offset) is converted to a byte offset (by 
multiplying it by two), this value is subtracted from the value in the MP 
register and then the value on the top of the evaluation stack is stored at 
the resultant address. Note that there is no "Short Store Local" instruction. 
Loading data occurs much more frequentiy than does storing data so a 
special case was made for the load local instruction. No such special case 
was created for the store instruction. 
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STL B OPERATJON: 



1. BEFORE 



IPC 



STL 






CODE 
2. ACTION 



SP 



VALUE 



STACK 



IPC 






bIL 



SP 




ACTIVATION RECORD 

MP - (B*2) 



IPC 



STL 



CODE 




POP TOP OF STACK AND STORE INTO LOCATION MP - (2*B) 
3. AFTER 



SP 



ACTIVATION RECORD 
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Global Loads and Stores 

Syntax: SLDO n (n is in the range 1..16) 

Opcode: 2S2..247 ($E8..$F7) 

Operation: Loads a global variable with ofifset n onto the stack 

The SLDO instruction is similar to SLDL instruction except that it loads 
global variables instead of local variables onto the evaluation stack. Global 
variables are those which were declared in the main program (or unit) of 
the currendy executing program. 

The SLDO instruction extracts the offset n from the opcode, multiplies this 
value by two, and subtracts the doubled offset from the BASE register to 
obtain the address of the desired variable. The SLDO instruction is one 
byte long. Hence there are 16 different SLDO instructions required to 
provide access to the first 16 words of global storage. 
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SLDO n OPERATION: 



1. BEFORE 



IPC 



SLDOn 



CODE 



2. ACTION 



IPC 



SLDOn 



3. AFTER 



IPC 



SLPO a. 



SP 



TOS 



STACK 



SP 



TOS 



VALUE 



SP 



VALUE 



CODE ' 



STACK 



BASE— 



ACTIVATION RECORD 
OF BASE PROCEDURE 




BASE PROCEDURE 
ACTIVATION RECORD 
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Syntax: LDO B 
Opcode: 169 ($A9) 
Operation: Load a global word 

LDO (Load global word) is the long version of the SLDO instruction. It 
loads the word with the specified offset from the BASE register and pushes 
it onto the stack. 

The LDO instruction is two bytes long when loading one of the first 128 
words of global storage; it is three bytes long if a variable located beyond 
the 128th word of storage is loaded. As with any word offset, the "B" 
parameter is multiplied by two to obtain a byte offset. This byte offset is 
then subtracted from the BASE register to obtain the address of the word 
to be loaded. 
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LDO B OPERATIOIM: 



1. BEFORE 



IPC 






LDO 



CODE 
2. ACTIOIM 



SP 



TOS 



STACK 



IPC 



LDO 



B 



SP 



TOS 



VALUE 



3. AFTER 



LDO 






IPC 



CODE 



SP 



VALUE 



STACK 



BASE — 



BASE PROCEDURE 
ACTIVATION RECORD 




BASE-^ 



BASE PROCEDURE 
ACTIVATION RECORD 
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Syntax: LAO B 

Opcode: 165 ($A5) 

Operation: Load Global address of variable specified 

The LAO instruction pushes the address (as opposed to the data stored at 
an address) of the global variable specified. Its operation is similar to the 
LLA instruction except that the offset is subtracted from the BASE register 
instead of the MP register. The LAO instruction is used when passing global 
variables by reference to a procedure or function. 
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LAO B OPERATIOIM: 



1. BEFORE 



IPC 






LAO 



CODE 

2. AcnoiM 



SP 



TOS 



STACK 



IPC 






LAO 



SP 



TOS 



BASE - (2*B) 



3. AFTER 






IPC 



LAO 



CODE 



SP -* 



BASE - (2*B) 



STACK 



BASE — 



BASE PROCEDURE 
ACTIVATION RECORD 



BASE-^ 



BASE -*■ 



BASE PROCEDURE 
ACTIVATION RECORD 
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Syntax: SRO B 

Opcode: 171 ($AB) 

Operation: Stores TOS (top-of-stack at specified global offset) 

SRO (store global word) stores the data on the top of the evaluation stack 
into the global variable whose oflFset is specified after the opcode. This 
instruction is two bytes long if used to store data into a scalar variable with 
an offset of 127 or less. It is three bytes long if it is used to store data into 
a global variable with a word offset greater than 127. 
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SRO B OPERATION: 



1. BEFORE 



IPC 



SRO 






CODE 
2. ACTION 



SP 



NOS 



TOS 



STACK 



BASE- 



IPC 






SRO 



SP 



3. AFTER 



SRO- 



IPC 



CODE 



SP 



BASE PROCEDURE 
ACTIVATION RECORD 



NOS 



TOS 



NOS 



STACK 




BASE PROCEDURE 
ACTIVATION RECORD 
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Intermediate Loads and Stores 

Syntax: LOD DB,B 

Opcode: 182 ($B6) 

Operation: Load intermediate variable 

The LOD instruction is used to load intermediate variables onto the top of 
the stack. An intermediate variable is one that is global to the currendy 
executing procedure, but is not a global variable in the sense that it was 
defined in the main program. For example, consider the Pascal program 
segment: 



PROGRAM main; 
MAR I: integer; 

PROCEDURE INTERMEDi 
VAR J: integer; 

PROCEDURE local; 
VAR K: INTEGER 
BEGIN 



WRITELNd*' ',J,' ',K); 

end; 

BEGIN 

* 
4 
« 

end; 

BEGIN 

t 
I 

END. 



Within the procedure LOCAL variable I would be accessed using the LDO 
instruction, K would be accessed using the LDL instruction, and J would 
be accessed using the LOD instruction. 
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LOD is a little different from the local and global loads in that it requires 
two parameters instead of just one. The DB operand is used to tell the p- 
machine how many static links you must traverse in order to find the address 
from which you apply the B offset. A static link is a pointer to the activation 
record of the parent of the currentiy executing procedure. In the example 
above the procedure LOCAL has a static link that points to the procedure 
INTERMED and INTERMED has a static link that points to the activation 
record for MAIN. 

The LOD instruction can be used to access variables in as many as 128 
nested orocedures. The MP register Doints at the activation record of the 
parent of the currentiy executing procedure. The address of this location is 
used as the temporary MP value. DB is decremented by one. If the new 
value of DB is zero, then the B operand is multiplied by two and subtracted 
from the temporary MP value in order to obtain the address of the variable 
in question. If DB is not zero, this process is repeated except the temporary 
MP value is used instead of the value in the MP register to find the next 
link. 
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Link 3 points here 



[Link 3 - 2*«3 points here 



Link 2 points here 



Link 1 points here 



MP points here 



Figure 5-1 
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This is an example of how a LOD 3,2 instruction would be handled. Three 
times a link is obtained and used to point at the activation record of the 
parent procedure (the first time the link address is obtained from the MP 
register). LINKS points to the activation record of the procedure in which 
we wish to access the second variable. B (in this case, 2) is multiplied by- 
two to obtain a byte offset which is then subtraaed from LINKS to obtain 
the address of the low-order byte of the variable to be loaded onto the 
evaluation stack. The high order byte of the variable (the next sequential 
memory location after the low-order byte) is pushed onto the evaluation 
stack and then the low-order byte is pushed onto the evaluation stack. 
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Syntax: LDA DB,B 

Opcode: 178 ($B2) 

Operation: Loads the address of an intermediate variable 

LDA (load intermediate address) is intermediate version of LLA and LAO. 
It pushes the address of the intermediate variable, as opposed to the value 
at that address, onto the evaluation stack. The address is calculated traversing 
DB static links and subtracting 2*B from the address of the target activation 
record. 
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LDA DB,B OPERATION: 



1. BEFORE 



IPC 



LDA 



DB 






CODE 



SP 



TOS 



STACK 




■^ "DB" 
"LINKS 



MP 



LINK 



LINK 



ACTIVATION RECORD 



2. ACTION 



IPC 



LDA 



DB 






CODE 

3. AFTER 



IPC 



WA 



DB 






CODE 



SP 



SP -^h 



THIS ADDRESS 
MINUS 2*B 
IS PUSHED 



ADDRESS 



STACK 



ADDRESS 



STACK 




MP 



ACTIVATION RECORD 



MP 



ACTIVATION RECORD 
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Syntax: STR DB,B 

Opcode: 184 ($B8) 

Operation: Store data into an intermediate variable 

The value on the top of the evaluation stack is popped and stored at the 
specified offset after traversing DB static links (see LCD for a discussion of 
static traversals). 
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STR DB,B OPERATIOISI: 



1. BEFORE 



IPC 



STR 



DB 



. B 



CODE 



SP 



NOS 



VALUE 



STACK 









,-, ' , 




• 


-(2*Bj 










i 










. 








MP -^ 











"DB" 
LINKS 



ACTIVATION RECORD 



2. ACTION 



IPC 



STR 



DB 






CODE 
3. AFTER 



SP 



IPC 



STfi 



DB 






CODE 



SP 



NOS 



VALUE 



STACK 



NOS 



STACK 



ADDRESS 
- (2*B) 



VALUE 



MP 



ACTIVATION RECORD 



VALUE 




MP 



ACTIVATION RECORD 
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Indirect Loads and Stores 

Syntax: SIND n (n must be in the range 0..7) 
Opcode: 248 + n ($F8 + n) 
Operation: Load word indirect, indexed 

The SIND instructions assume that the top of stack (TOS) points to some 
data structure. SINDO replaces TOS with the word pointed at by TOS. 
SESTDl replaces TOS with the word pointed at by (TOS + 2). SIND2 replaces 
TOS with the word pointed at by (TOS + 4). Similarly, SINDn replaces 
TOS with the word pointed at by (TOS + 2*n). 

The SINDn instruction is used to access elements of a multi-word structure 
such as a record. SIND is the short form of the IND instruction to be 
described next. By defining often- accessed fields of a record as one of the 
first eight words of the record you can optimize record accesses since the 
SINDn instruction will be used in place of the longer and slower IND 
instruction. 

SINDO is a special case of the SINDn instruction. It is used to load a word 
indirecdy and finds many uses beyond that of the record element access. 
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SIND n OPERATION: 



1. BEFORE 



IPC 



SINDn 



CODE 



2. ACTION 



IPC 



SINDn 



CODE 
3. AFTER 



SINDn 



IPC 



CODE 



SP 



SP 



SP -* 



TOS 



STACK 



VALUE 



TOS + 2*n 



STACK 



VALUE 



STACK 






HERE 



VALUE 



MEMORY 



TOS + 2n 

POINTS 

HERE. 



VALUE 



MEMORY 



MEMORY 
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Syntax: IND B 
Opcode: 163 ($A3) 
Operation: Indirect indexed load 

IND is the more general form of the SINDn instruction. The B operand is 
multiplied by two and added to TOS. TOS is then replaced by the word 
pointed at by TOS. 

IND is used to access elements of a record beyond the seventh word of data 
in die record. Note that B is a static index. That is, it cannot be changed 
during the execution of a program. 
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IIMD B OPERATIOW: 



1. BEFORE 



IPC 



IND 



B 



CODE 
2. ACTIOIM 



SP 



IPC 






IND 



CODE 
3. AFTER 



SP 



IND 






IPC 



CODE 



SP 



TOS 



STACK 



VALUE 



STACK 



VALUE 



STACK 



TOS + (2*B) 



'# 



VALUE 



MEMORY 



TOS + (2*8) 



VALUE 



MEMORY 



VALUE 



MEMORY 
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Syntax: STO 
Opcode: 154 ($9A) 
Operation: Store data indirect 

STO stores the data on TOS at the location specified by the word at NOS 
(next-on-stack). TOS is popped and saved at the address pointed at by the 
new TOS. Two words are popped off of the stack during the execution of 
the STO instruction. STO is used for storing data into arrays, records, 
parameters that were passed by reference, pointers, and other variables where 
the actual location isn't known at compile-time. 



188 



STO OPERATION: 



1. BEFORE 



IPC 



STO 



SP -^ 




SP 



SP 



NOS 
TOS 



STACK 



NOS 



TOS 



STACK 



NOS 



TOS 



NOS 

POINTS 

HERE 






--■' 


MEMORY 



STACK 
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Extended Loads and Stores 

Syntax: LDE UB,B 
Opcode: 157 ($9D) 
Operation: Load an extended word from intrinsic unit 

LDE is used to load data from the global data segment of a segment pro- 
cedure. UB is the data segment from which the data is to be loaded and B 
is the offset into that data segment where the word to be loaded can be 
found. The LDE instruction allows short, fast access to variables defined in 
the outer shell of intrinsic units. 
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LDE UB,B OPERATION: 



1. BEFORE 



IPC- 



LDE 



UB 



^-^- B — ^ - 



CODE 



2. ACTIOIM 



■* (SEG TBL ENTRY -2*B] 



SEGMENT TABLE 



SP 



TOS 



STACK 



VALUE 



MEMORY 



iPC- 



(SEG TBL ENTRY - 2*B) 



LDE 



UB 



B 



CODE 
3. AFTER 



SEGMENT TABLE 



SP 



TOS 



VALUE 



1 



STACK 



IPC- 



VOB. 



UB 






CODE 



SEGMENT TABLE 



SP 



VALUE 



STACK 



f- 



/ 



VALUE 



MEMORY 



VALUE 



MEMORY 
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Syntax: LAE UB,B 

Opcode: 167 ($A7) 

Operation: Pushes address of extended word onto stack 

LAE is used to load the address of the word with offset B in global data 
segment UB. As with the LDE instruction, LAE is used to access global 
variables within an intrinsic unit. 
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UKE UB,B OPERATION: 



IPC 



3^r\jn^ 












VALUE 










1>\E 




UB 


1 








B -- 


— ■ 




SEGMENTTABLE 


CODE 




\ 


TOS 


STACK 



±: (VALUE - 2*B) 



2. ACTION 



IPC 



lfi£ 



UB 



B -► 



VALUE 



SEGMENT TABLE 



SP 



TOS 



VALUE - (2*8) 



(VALUE - 2*B) -1 



3. AFTER 



IPC 



LAE 



UB 






CODE 



SEGMENT TABLE 



SP 



VALUE - (2*8) 



STACK 
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Syntax: STE UB,B 
Opcode: 209 ($D1) 
Operation: Store extended word 

STE is used to store data into a word in an intrisic unit's global variable 
area. UB is the data segment number, B is the word oflFset into the data 
segment where the word is to be stored. 
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STE UB,B OPERATIOIM: 



(VALUE - 2*B) 




STE 



UB 



-- B 



IPC 



CODE 



SEGMENT TABLE 



SP 



NOS 



TOS 



STACK 



MEMORY 
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Multiple-Word Loads and Stores (Reals and Sets) 

Syntax: LDC UB,<block> 

Opcode: 179 ($B3) 

Operation: Push <block> of words onto the stack 

LDC is used to push a block of words (i.e., more than two) onto the 
evaluation stack. It is used primarily to load real constants and set constants 
onto the stack. UB is the number of words to push on the evaluation stack, 
<block> is a block of UB words that follows the opcode. After the <block> 
is pushed onto the stack the IPC is incremented past <block>. 
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LDC UB,<BLOCK> OPERATIOIM: 



1. BEFORE 



IPC- 



LDC 



UB 



DATA 



CODE 
2. ACTION 



IPC- 



LDC 



UB 



DATA 



CODE 
3. AFTER 



IPC- 



LDC 



DATA 



CODE 



SP 



TOS 



BLOCK OF 
; UB WORDS 



SP 



STACK 



TOS 



DATA 



STACK 



PREV. TOS 



DATA 



STACK 



\ COPY BLOCK 
I OF UB WORDS 
/ ONTO STACK 
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Syntax: LDM UB 
Opcode: 188 ($BC) 
Operation: Load multiple words 

LDM pushes a block of UB words where the address of the block is stored 
on TOS. LDM is used to load real and set variables onto the evaluation 
stack. Since the address of the variable must be on TOS, some calculations 
must be performed in order to place the address of the variable on the TOS. 
At the bare minimum, an LLA instruction (at least two bytes) must be 
executed before LDM can be executed. So to load a real or set variable at 
least four bytes are required. For this reason you should never declare a real 
or set variable as one of the first 16 variables declared. The first 16 words 
of storage should be reserved specifically for scalar variables since they can 
take advantage of the shorter SLDO and SLDL load instructions. 
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LDM UB OPERATION: 



1. BEFORE 



IPC- 



LDM 



UB 



SP 



STRUCTURE 



MEMORY 



la 



2. ACTIOIM 



IPC 



LDM 



UB 



CODE 
3. AFTER 



COPY UB WORDS 
POINTED AT BY 
TOS ONTO TOS 



STACK 



">V 






MEMORY 



IPC- 



tDM- 



UB 



CODE 



SP 



STACK 




MEMORY 
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Syntax: STM UB 
Opcode: 189 ($BD) 
Operation: Store a block of words 

STM is used to store a block of UB words. TOS is a block of UB words, 
it is stored at the location specified on the stack after popping off all the 
words to be stored. STM is used to store real and set values into their 
corresponding variables. 
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STM UB OPERATION: 
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Byte Array Handling 

Syntax: LDB 
Opcode: 190 ($BE) 
Operation: Load byte 

LDB is used to load data from a byte array (such as a packed array of 
CHAR). TOS contains an index into the array (a byte index) and TOS - 1 
contains a pointer to the base address of the byte array. TOS is popped and 
added to TOS - 1. The byte pointed at by this new pointer replaces TOS - L 
Since data pushed onto the stack must be 16 bits wide, the byte pushed is 
zero extended to 16 bits before being pushed. 
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LDB OPERATION: 
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Syntax: STB 

Opcode: 191 ($BF) 

Operation: Store TOS into a byte array 

STB is used to store a byte into a byte array. STB stores the low-order byte 
of TOS into the array pointed at by TOS - 2 after adding the index at 
TOS- 1. The high-order byte of TOS is ignored (although it is usually 
zero). After the completion of this instruction the SP register is cut back 
by six (for three words). 
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STB OPERATION: 



I. BEFORE 

IPC- 



STB 



CODE 



2. ACTIOM 



IPC- 



STB 



I CODE 

3. AFTER 



IPC 



STB 



SP 



BASE 



INDEX 



VALUE 



STACK 



CP 



BASE 



INDEX 



VALUE 



STACK 



SP 



CODE 



STACK 



-BASE 

+ 

INDEX 



MEMORY 




VALUE 



-BASE 
INDEX 



MEMORY 



VALUE 



MEMORY 



205 



String Handling Instructions 

Syntax: LSA UB,'Chars' 
Opcode: 166 ($A6) 
Operation: Load string address 

LSA is used to push the address of a string constant onto the evaluation 
stack. UB is the number of characters in the string, it is followed by a block 
of UB bytes. The LSA instruction pushes a pointer to the byte in memory 
containing the UB. Since strings in Pascal consist of a length byte followed 
by a group of characters, the data following the UB opcode is a valid Pascal 
string. Once the pointer to the string is pushed, the value (UB + 2) is added 
to the IPC register so that execution continues with the next opcode after 
the last character in the string. 



206 



LSA UB, CHARS' OPERATIOW: 
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Syntax: SAS UB 
Opcode: 170 ($AA) 
Operation: String assignment 

SAS is used to assign one string to another. TOS is either a pointer to the 
source string or a single character. The differentiation is made by looking 
at the high order byte. If it is zero, then a single character is to be stored 
into the destination string. If the high-order byte of TOS is not zero, then 
TOS is a pointer to the string to be copied into the destination string. String 
pointers can never have a high order byte of zero since that would imply 
that the string is stored in page zero; and that never happens on the Apple. 

TOS - 1 is a pointer to the destination string. UB is the maximum declared 
length of the destination string. If the string pointed at by TOS is larger 
than UB characters a run-time execution error is given. If UB is greater 
than or equal to the current size of the string pointed at by TOS, the string 
pointed at by TOS is copied to the string pointed at by TOS- 1. Since a 
string cannot be declared with a length less than one, a single character on 
TOS never generates an error. 

After the execution of the SAS instruction the stack is popped by two words 
removing the two pointers on the TOS. 
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Syntax: JXS 
Opcode: 155 ($9B) 
Operation: Index string array 

IXS is used to create a pointer to a byte within a string. TOS contains an 
index into a string that is pointed at by TOS - 1. TOS is compared to the 
byte pointed at by TOS - 1. If TOS is greater than the byte pointed at by 
TOS (which is the current length of the string pointed at by TOS) then an 
execution error is given. If TOS is less than or equal to the byte pointed at 
by TOS — 1 then IXS simply leaves everything on the stack. 
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IXS OPERATION: 
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Record and Array Handling Instructions 

Syntax: MOV B 
Opcode: 168 ($A8) 
Operation: Move a block of words 

MOV transfers a block of B words pointed at by TOS to a similar block of 
words pointed at by TOS - 1. MOV is used whenever a whole record or 
array is assigned to a similar variable. After the execution of the MOV 
instruction TOS and TOS - 1 are popped off of the stack. 
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MOV B OPERATION: 
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Syntax: INC B 
Opcode: 162 ($A2) 
Operation: Increment field pointer 

INC is used to form an index into a record. It is very similar to the IND 
instruction described earlier except the address of the word is left on the 
stack instead of the word at the specified address. 

INC adds two times B to TOS and replaces TOS with this new value. INC 
is used create a pointer to some field within a record variable. 
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IIMC B OPERATION: 
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Syntax: IXA B 
Opcode: 164 ($A4) 
Operation: Index array 

TOS is an index into the array whose base element is pointed at by TOS - 1. 
Each element of the array is of size B (the operand to IXA). TOS is popped 
and multiplied by B then added to TOS - 1 to obtain a pointer to the desired 
element. 

IXA is used for loading the address of an array element where the array's 
elements are two words or larger apiece (INC is used for one- word arrays). 
For example, to obtain the address of the element of a REAL array, the B 
operand is equal to two (since there are two words per array element). In 
addition to arrays of REAL data, IXA is also used for obtaining the address 
of an element of an array of RECORD, STRING, SET, and other multi- 
element type. 
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IXA B OPERATION: 



1. BEFORE 



!PC- 



IXA 



SP 



CODE 



2. AaiON 



ipr- 



IXA 



r_(BASE + (B*INDEX)) 



B »-= 



CODE 
3. AFTER 



.(B*INDEX) 




STACK 



IPC- 



0(A 



B 



(BASE + (B*INDEX)) 



CODE 



STACK 



217 



Syntax: IXP UB1,UB2 
Opcode: 192 ($C0) 
Operation: Index Packed Array 

IXP is used to push the address of an element of a packed array onto the 
stack. TOS is the index into the array TOS- 1 is the base address of the 
array UBl is the number of elements per word (this must be greater than 
one, if it is less than or equal to one you would use IXA or INC instead). 
UB2 is die field width (in bits). A "packed field pointer" to die desired data 
is computed and pushed onto TOS (after index and base address are popped, 
of course). 

A packed field pointer is three words long. The first word pushed (TOS - 2) 
is a word pointer to the word the field is in. The second word pushed 
(TOS- 1) is the field width, in bits. The last word pushed (TOS) is the 
right bit number of the field. This type of pointer is used by the LDP and 
STP instructions (to be described). 
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IXP UB1,UB2 OPERATfON: 
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Syntax: LPA UB,<bytes> 

Opcode: 208 ($D0) 

Operation: Load packed array address 

LPA is almost identical to the LSA instruction described earlier. The dif- 
ference is that the pointer pushed onto the evaluation stack isn't a pointer 
to the UB operand, but rather a pointer to the byte immediately past the 
UB parameter (the first byte of the block of bytes following the UB oper- 
and). LPA is used to load the address of a packed array of characters onto 
the stack. After LPA is executed the STM instruction might be executed in 
order to copy the immediate string into a packed array. 
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LPA UB,<BYTES> OPERATION: 
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Syntax: LDP 
Opcode: 186 ($BA) 
Operation: Load a packed field 

LDP is used to load an element from a packed field. TOS, TOS - 1, and 
TOS-2 contain a "packed field pointer" (see IXP for details). Load the 
field pointed at by this field pointer onto the TOS. Zero-fill any unused 
high-order bits when loading the packed data. After the execution of the 
LDP instruction TOS and TOS - 1 are popped and the packed data replaces 
TOS - 2 which becomes the new TOS. 
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LDP OPERATION: 
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Syntax: STP 

Opcode: 187 ($BB) 

Operation: Store TOS into a packed field 

TOS is a field of some packed array or record. Store it into the packed field 
specified by the packed field pointer comprised of TOS - 1, TOS -2, and 
TOS - 3 (see IXP for details). After the exection of the STP instruction the 
stack is cut back by four words. 



Dynamic Variable Allocation 
General 

Dynamic variables (pointer variables) are allocated on the Apple Pascal "^eap". 
The heap is a stack that starts at low memory and grows upwards towards 
the program stack. Unlike the program and data stack, variables allocated 
on the heap are not automatically de-allocated when a procedure terminates. 
Variables allocated on the heap must be explicidy de-allocated using the 
Pascal RELEASE command. 

The Apple Pascal operating system uses the memory just above the heap to 
store a copy of the current disk directory. The variable GDIRP in the SYS- 
COM memory area contains a pointer to the 2K block used to store the 
directory. As long as the heap is imdisturbed the Pascal system will use this 
copy of the directory. The instant you allocate or de-allocate data on the 
stack, the GDIRP pointer is set to NIL and the next time the operating 
system attempts to access the directory a new copy of the directory will have 
to be read in off of the disk. In general, this process is completely transparent 
to the user. However, if you are opening and closing files often you should 
avoid allocating (or de-allocating) dynamic variables as this tends to hurt 
the performance of the system since the directory will have to be unneces- 
sarily read in several times. 
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Syntax: NEW 

Opcode: 158,1 ($9E,$1) 

Operation: Allocate space for a dynamic variable 

NEW is used to allocate space for a dynamic variable whenever the Pascal 
NEW command is issued. Note that NEW is quite a bit different from the 
instructions seen so far in that the opcode is two bytes long. The 158 opcode 
is actually the CSP (for Call Special Procedure) which is followed by the 
procedure number of the function you wish to execute. There are several 
different special procedures, NEW happens to be the first such procedure. 

NEW expects two words on TOS. TOS is the number of words to allocate 
to the dynamic variable and TOS - 1 is the address of the pointer variable. 
A copy of the NP register is stored in the pointer variable whose address is 
at TOS- 1 then TOS is multiplied by two and added to NP TOS and 
TOS - 1 are both popped off of the evaluation stack. 

After the dynamic variable is allocated, the p-machine checks GDIRP to see 
if it is non-NIL. If GDIRP isn't NIL it is set to NIL to prevent future 
directory accesses from attempting to use the memory area just allocated as 
a copy of the directory. 
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Syntax: MRK 

Opcode: 158,31 ($9E,$1F) 

Operation: Copy NP into a pointer variable 

The MRK instruction is emitted whenever the Pascal MARK procedure is 
encountered. MRK expects a single word on TOS. This is the address of 
some pointer variable (by convention, 'INTEGER). NP is copied into this 
variable. If GDIRP is non-NIL, it is set to NIL after the execution of this 
program. 

MRK and RLS (described next) allow the user to dynamically allocate and 
de-allocate memory as necessary. 
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Syntax: RLS 

Opcode: 158,32 ($9E,$20) 

Operation: Release storage allocated by MRK 

RLS is the opposite of MRK. It is used to reset the value of NP to some 
previous value. TOS contains the value which is to be loaded into NP. It is 
popped and transferred to the NP register. After the execution of the RLS 
instruction, GDIRP is set to NIL. 
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Top of Stack Arithmetic 
General 

The p-machine arithmetic and logical instructions take their operands from 
the stack and leave any results on the stack. For example, the ADI (add 
integers) instruction pops TOS and TOS- 1, adds them, and then pushes 
the result back onto the stack. Unary operators (like ABI - Absolute value) 
pop a single operand off of the stack, operate on it, and push the result back 
onto the stack. 



Integer Operations 

Syntax: ABI 

Opcode: 128 ($80) 

Operation: Take the absolute value of the integer on TOS 

ABI is a unary operator. It takes the absolute value of the integer on TOS. 
If TOS is positive, TOS is left unmodified, if TOS is negative it is negated, 
yielding the positive version of the number on TOS. Note that taking the 
absolute value of - 32768 returns - 32768 since there is no -t- 32768 in 
the two's complement number system. 
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ABI OPERATION: 
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Syntax: ADI 

Opcode: 130 ($82) 

Operation: Add integer TOS to TOS - 1 

ADI is a binary operator that expects two words on TOS. TOS is popped 
and added to TOS - 1. The resulting sum replaces TOS - 1 as the new TOS. 
Note that the p-Machine does not report an error if arithmetic overflow 
occurs. 
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Syntax: NGI 
Opcode: 145 ($91) 
Operation: Negate integer TOS 

NGI is used to take the two's complement of TOS. TOS is popped, negated, 
and then pushed back onto the evaluation stack. Note that negating - 32768 
returns - 32768 since, in the two's complement system, there is no + 32768. 
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IMGI OPERATION: 
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Syntax: SBI 

Opcode: 149 ($95) 

Operation: Subtract TOS from TOS - 1 

SBI pops TOS, subtracts it from TOS - 1, and replaces TOS - 1 with the 
difference obtained. The difference pushed becomes the new TOS. 
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SBI OPERATION: 
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Syntax: MPI 
Opcode: 143 ($8F) 
Operation: Multiply integers 

MPI is used to multiply TOS by TOS - 1. The integer TOS and TOS - 1 
are popped, the product is pushed. Since the product of two 16-bit integers 
may require 32 bits, this instruction may cause an overflow to occur if the 
values being multiplied are too large. No run- time error is given if overflow 
occurs; making sure the product fits within 16 bits is the responsibility of 
the programmer. 
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Syntax: SQI 
Opcode: 152 ($98) 
Operation: Square integer 

SQI replaces TOS with the square of the value on TOS. If overflow occurs, 
no error is given. 
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Syntax: DVI 
Opcode: 134 ($86) 
Operation: Divide integers 

DVI divides TOS - 1 by TOS and pushes the result. If a division by zero 
occurs, a run-time error is given. 
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Syntax: MODI 

Opcode: 142 ($BE) 

Operation: Compute the modulo of two mtegers 

MODI divides TOS- 1 by TOS and pushes die remainder. A division by 
zero rim-time error is given if TOS - 1 is zero. 



246 



MODI OPERATIOIM: 
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Syntax: CHK 

Opcode: 136 ($88) 

Operation: Check value to see if it is within a range 

CHK expects three words on TOS. It performs the following comparison: 
TOS - 1< = TOS - 2 < = TOS. If this relation is true, CHK pops TOS 
and TOS - 1 (leaving TOS - 2 on the top of the stack) and returns to the 
caller. If this relation does not hold a run-time error is given. 

CHK is used to check to see if an array index is within bounds. It is also 
used to make sure that a value being stored into a subrange is within that 
subrange. You can prevent the emission of the CHK instruction by using 
the (*$R - *) compiler option. 
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VALUE 3 



ABORT 

IF .MOT [VALUE 2<= 
VALUE 1<= 
VALUES) 



3. AFTER 



IPC- 



CHK 



CODE 



SP 



VALUE 1 



STACK 
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Integer Comparisons. 
General 

The integer comparisons compare TOS - 1 with TOS. If the specified com- 
parison is true the value $0001 (true) is pushed onto the evaluation stack. 
If the specified comparison does not hold, then $0000 (false) is pushed onto 
the evaluation stack. 

Syntax: EQUI NEQI LEQI 

LESI GEQI GTRI 

Opcode: 195 ($C3) 203 ($CB) 200 ($C8) 

201 ($C9) 196 ($C4) 197 ($C5) 

Operation: Compare two integers 

EQUI compares TOS to TOS - 1. If they are equal, true is pushed; if they 
are not equal, false is pushed. 

NEQI compares TOS to TOS - 1 to see if they are not equal. If they are 
not equal, true is pushed; if they are equal, false is pushed. 

LEQI compares TOS - 1 to TOS. If TOS - 1 is less than or equal to TOS 
then true is pushed, otherwise false is pushed. 

LESI compares the integer TOS - 1 to the integer TOS. If TOS - 1 is less 
than TOS then true is pushed, otherwise false is pushed. 

GEQI and GTRI compare TOS- 1 to TOS to see if TOS- 1 is greater 
than or equal, or greater than TOS (respectively). If the relation holds, true 
is pushed otherwise false is pushed. 
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Non-Integer Comparisons 

Syntax: OPCODE: OPERATION: 



EQUUB 


175 


NEQUB 


183 


LEQUB 


180 


LESUB 


181 


GEQUB 


176 


GTRUB 


177 



Compare TOS to NOS and push true if equal 

Push true if TOS <> NOS 

Push true if NOS < = TOS 

Push true if NOS < TOS 

Push true if NOS > = TOS 

Push true if NOS > TOS 



Where UB is: 

2 if TOS, NOS are REAL. 

4 if TOS, NOS are STRINGs. 

6 if TOS, NOS are BOOLEAN. 

8 if TOS, NOS are SETs. 
10 if TOS, NOS are byte arrays. 
12 if TOS, NOS are blocks of words. 

Actual examples of these comparisons wiU be presented in the followine 
sections. ^ 
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REAL Operations 

Syntax: FLT 



Opcode: 138 ($8A) 

Operation: Convert integer on TOS to a floating point number 

FLT is a unary operator. It pops the two-byte integer value off of the stack, 
converts it to the equivalent floating point number, and pushes the floating 
point number back onto the stack. This opcode is emitted whenever an 
expression contains both integers and floating point values such as: 



F*I 



where F is a floating point value and I is an integer value. Note that this 
opcode is emitted whenever the compiler encounters an integer and has 
already determined that the expression is a floating point expression. 



252 



FLT OPERATrON: 



1. BEFORE 



IPC- 



FLT 



CODE 
2. ACTIOIM 



IPC- 



FLT 



CODE 



3. AFTER 



iPC- 



SP 



SP 



FLT 



CODE 



SP 



INTEGER 



STACK 



INTEGER 



STACK 



REAL 
VALUE 



STACK 



■(FLOAT (INTEGER)) 



3 
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Syntax: FLO 

Opcode: 137 ($89) 

Operation: Convert NOS to a floating point value 

FLO is a unary operator that converts the integer NOS to a floatiag point 
value. TOS is assumed to be a floating point value, it is popped and saved 
in a temporary location while NOS is converted to a floating point value. 
After NOS is converted to a floating point value, the saved TOS is pushed 
back onto the stack. 

FLO is used in situations where the compiler has determined that an expres- 
sion is of type REAL but some integer values have already been pushed 
onto the evaluation stack. For example, a statement of the form: 



F != I + F! 



will cause the emission of the FLO opcode. If you can rearrange your expres- 
sion so that the compiler realizes that the expression type is of type REAL 
early in the evaluation you can avoid the emission of the FLO opcode. This 
is highly desired as the FLO opcode executes a litde slower than the FLT 
opcode. The previous example is easily modified by swapping I and F in 
the expression on the right hand side. 
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FLO OPERATION: 



1. BEFORE 



IPC- 



FLO 



CODE 

2. ACTION 



IPC- 



FLO 



CODE 



3. AFTER 



IPC-* 



FLO 



CODE 



SP- 



SP- 



INTEGER 



REAL 
VALUE 



STACK 



INTEGER 



REAL 
VALUE 



STACK 



REAL 



VALUE 



REAL 
VALUE 

STACK 



..(FLOAT (IN I hGER) 



MOVE REAL 
VALUE DOWN 
ONE WORD 
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Syntax: TNC 
Opcode: 158,22 
Operation: Truncate REAL 

TNC is a unary operator that takes the REAL on TOS, converts it to an 
integer by truncating it, and pushes the integer result. Note that TNC has 
a two-byte opcode. Opcode 158 is really the CSP (call special procedure) 
opcode with 22 being the special procedure number for the truncate routine. 
The TNC opcode is emitted anytime the Pascal TRUNC( - ) function is 
encountered within an expression. 
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TNC OPERATION: 



I. BEFORE 



IPC- 



CSP 



TNC 



CODE 



SP 



REAL 



VALUE 



STACK 



2. ACTION 



iPC- 



CSP 
TNC 



CODE 



3. AFTER 



IPC- 



CSP 
TNC 



CODE 



SP 



SP 



REAL 



VALUE 



STACK 



INTEGER 



STACK 



(INT (REAL)) 
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Syntax: RND 

Opcode: 158,23 

Operation: Round REAL on TOS and truncate 

RND is a unary operator that takes the REAL value on TOS, rounds it 
using the formulae: 



IF X>=0 THEN ROUND := TRUNC(X+0.5) 
ELSE ROUND := TRUNC( X-0 . 5 ) ! 



Note that, like TNC, RND is a two-byte CSP instruction. 
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RND OPERATIOIM: 



1. BEFORE 



IPC 



CSP 



END 



CODE 
2. ACTION 



SP 



CSP 

"rnd 



CODE 
3. AFTER 



SP 



IPC- 



CSP 
RND 



CODE 



SP 



REAL 
VALUE 



STACK 



REAL 
VALUE 



STACK 



INTEGER 



STACK 



(ROUND (REAL)) 



zn 
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Syntax: ABR 

Opcode: 129 ($81) 

Operation: Take absolute value of REAL TOS 

ABR is a unary operator that takes the REAL value on TOS and pushes its 
absolute value. This opcode is emitted whenever the ABS fimction is 
encountered within the program. 
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ABR OPERATION: 



1. BEFORE 



IPC- 



ABR 



CODE 
2. ACTIOISi 



iPC- 



ASR 



CODE 
3. AFTER 



IPC- 



A6R 



CODE 



SP 



REAL VALUE 



STACK 



' REAL VALUE 



STACK 



! 

-ABS jVALUEH 



SP 



_ABS(REAL_ 
VALUE) 



STACK 
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Syntax: ADR 
Opcode: 131 ($83) 
Operation: Add reals 

ADR adds the REAL TOS to the REAL NOS and leaves the resulting sum 
on the TOS. If an overflow occurs, then an execution error results. 
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1. BEFORE 



IPC- 



ADR 



CODE 

2. ACTION 



IPC- 



ADR 



CODE 
3. AFTER 



IPC- 



ADR 



CODE 



ADR OPERATIOISI: 



SP 



- VALUE 1 - - - 



VALUE 2-- 



STACK 



h 



SP 



VALUE 1 



VALUE 2 -- 



STACK 



t+ 



_! 



SP 



VALUE 1 + 
VALUE 2 



STACK 
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Syntax: NGR 
Opcode: 146 ($92) 
Operation: Negate REAL 

NGR is a unary operation that negates the REAL value on TOS. If TOS 
is negative, it becomes positive; if TOS is positive, it becomes negative. 
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INIGR OPERATIOIM: 



1. BEFORE 



IPC- 



NGR 



CODE 



2. ACTIOIM 



iPC- 



NGR 



CODE 



SP 



VALUE 



STACK ; 



VALUE 



STACK 



-VALUE 



3. AFTER 



IPC- 



NGR 



CODE 



SP 



VALUE 



STACK 
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Syntax: SBR 
Opcode: 150 ($96) 
Operation: Subtract REALs 

SBR subtracts TOS from NOS and pushes the difference. If an underflow 
occurs a run-time error is given. 
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SBR OPERATIOIM: 



1. BEFORE 



iPC- 



SBR 



CODE 
2. ACTION 



IPC- 



SBR 



CODE 



VALUE I 



SP 



VALUE 2 



STACK 



SP 



- VALUE i 



.VALUE 2 



STACK 



(VALUE 1 - VALUE 2] -I 



3. AFTER 



IPC- 



SBR 



CODE 



SP 



- VALUE I- VALUE 2- 



STACK 
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Syntax: MPR 
Opcode: 144 ($90) 
Operation: Multiply REALs 

TOS is multiplied by NOS and the resulting product is pushed. If an over- 
flow occurs then a run-time error is reported. 
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MPR OPERATION: 



1. BEFORE 



IPC- 



MPR 



CODE 
2. ACTION 



!PC- 



MPR 



CODE 



VALUE ! 



SP 



VALUE 2^ H 



STACK 



VALUE i 



-VALUE 2 — 

•- 



STACK 



(VALUE 1 *VALUE2)— ' 



3. AFTER 



IPC- 



MPR 



CODE 



VALUE 1* VALUE 2 



STACK 
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Syntax: SQR 
Opcode: 153 ($99) 
Operation: Square REAL TOS 

TOS is multiplied by itself and tiie resulting product is pushed. This opcode 
is emitted whenever the SQR fiinction is encountered within a program. If 
an overflow occurs during the execution of this program a run-time error 
is given. 
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SQR OPERATION: 



1. BEFORE 




SP 



VALU€ 



STACK 



SP 



VALUE 



STACK 



VALUE * VALUE — 



3. AFTER 



IPC- 



SQR 



CODE 



SP 



VALUE'VALUE 



STACK 
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Syntax: DVR 
Opcode: 135 ($87) 
Operation: Divide REALs 

DVR divides the real NOS by the REAL TOS. The resulting quotient is 
pushed. A run-time error is given if division by zero is attempted. 
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DVR OPERATION: 



BEFORE 



IPC- 



DVR 




rn 
or 



VALUE J - - - 



VALUE 2 



STACK 



VALUE 1 



SP 



VALUE 2 1 

• — 



VALUE I /VALUE 2 



STACK 



SP 



VALUE 1/ 
VALUE 2 



STACK 



273 



Syntax: POT 

Opcode: 158,35 

Operation: Compute power often 

POT expects an integer in the range 0..38 on the TOS. POT pushes the 
value of 10 raised to the TOS power onto the stack. If TOS is not in the 
range 0..38 an execution error is given. POT allows the rest of the system 
to operate in an implementation independent fashion as well as speed up 
certain floating point I/O processes. 
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POT OPERATION: 



1. BEFORE 



IPC- 



CSP 

POT 



SP 



-INTEGER- VALUE ~ 



CODE 
2. ACTIOW 



STACK 



IPC- 



CSP 
POT 



SP 



CODE 



3. AFTER 



IPC- 



CSP 



POT 



SP 



CODE 



10' 



VALUE 



STACK 
275 



in37 



10' 



10' 



10" 



10' 



10° 



POWER OF 
TEN TABLE 















— INTEGER VALUE -^ 




J. lo''*-" 




STACK 


POWER OF 



TEN TABLE 



REAL Comparisons 

The REAL comparisons are handled by the non-integer comparison oper- 
ators previously described. The UB byte following the opcode is always two 
for a REAL comparison. 

The REAL comparisons compare the REAL TOS to the REAL NOS and 
push true if the comparison is met. False is pushed otherwise. 

STRING Comparisons 

The STRING comparisons are also handled by the non-integer comparison 
opcodes already described. The UB byte for a STRING comparison is always 
four. 

When comparing two strings TOS and NOS contain pointers to the strings 
which are to be compared. These strings are compared and TRUE is ptished 
if the comparison holds, FALSE is pushed otherwise. 

Logical Operations 

Syntax: LAND 

Opcode: 132 ($84) 

Operation: Peform logical AND operation 

LAND logically ANDs TOS with NOS pushing the result back onto the 
stack. Note diat a complete 16-bit bit-by-bit AND is performed even though 
only the low order bit is used in boolean operations. This knowledge lets 
you write code that performs a bit-by-bit AND operation on two integers 
using the ORD and ODD functions. For example, to AND the integer I 
with $0F you would use the statement: 



ANDED := ORD(ODD(I) AND 0DD(15)); 

which ANDs I with 15 ($0F) and places the result in ANDED. Note that 
the jEunctions ORD and ODD do not generate any code. They are simply 
type transfer functions that let you treat integers as Boolean values and 
Boolean values (or any other scalar) as integers. 
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lAIMD OEPRATIOIM: 



1. BEFORE 



IPC- 



LAND 



SP 



CODE 
2. ACTION 



VALUE 1 



VALUE 2 



STACK 



IPC- 



LAND 



SP 



CODE 
3. AFTER 



VALUE 1 



VALUE 2 



STACK 



■(VALUE I AND VALUE 2) 



J 



IPC- 



L/iND 



CODE 



SP 



VALUE ! AND 
VALUE 2 



STACK 
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Syntax: LOR 
Opcode: 141 ($8D) 
Operation: Logical OR 

LOR logically ORs the value on TOS with NOS. The resulting value is 
pushed back onto the stack. This opcode is emitted whenever the OR oper- 
ator is encountered within a logical expression. Although only bit zero is 
used in a Boolean operation, all 16-bits of the two words on TOS are OR'd 
together so this operation can be used to OR two integers together in the 
same manner as described for the AND opcode. 
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LOR OPERATIOIM: 



1. BEFORE 



IPC- 



LOR 



CODE 
2. ACTION 



IPC- 



LOR 



CODE 



VALUE 



VALUE 2 



STACK 



VALUE I 



I VALUE 2 

i 



STACK 



:(VALUE I OR VALUE 2) J 



3. AFTER 



IPC- 



LOR 



CODE 



VALUE 1 
OR VALUE 2 



STACK 



279 



Syntax: LNOT 
Opcode: 147 ($93) 
Operation: Logical NOT 

LNOT takes the one's complement, or logical negation, of the value on 
TOS. To rephrase the last statement, LNOT inverts all the bits of the word 
on TOS. LNOT is a unary operator affecting only the value on TOS. As 
widi LAND and LOR, LNOT can be used to logically negate an integer 
by using the ODD and ORD procedures as follows: 

NEGATED := ORD(NOT ODD<I)>i 
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LIVIOT OPERATfOfM: 



I. BEFORE 



IPC- 



LNOT 



CODE 
2. ACTION 



IPC- 



LNOT 



CODE 



SP 



VALUE 



STACK 



SP 



VALUE _ _ (NOT VAi I JFj J 



STACK 



3. AFTER 



IPC- 



LNOT 



CODE 



SP 



NOT VALUE 



STACK 
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Logical Comparisons 

The logical comparisons use the non-integer comparison opcodes previ- 
ously described. For logical comparisons the UB byte is always set to six. 
A logical comparison always compares bit zero of NOS with bit zero of 
TOS (i.e., NOS and TOS are AND'd with one before the comparisons are 
made). TRUE is pushed if the comparison holds, FALSE is pushed otherwise. 



Set Operations 

Syntax: ADJ UB 
Opcode: 160 ($A0) 
Operation: Set adjust 

Whenever set operations are performed on the evaluation stack the size of 
the set data is often modified. For example, if you have a set variable COLOR 
which is of type SET OF [RED,BLUE,..., GREEN] and you make the 
assignment COLOR : = [BLUE]; the size of the set pushed onto the stack 
is not necessarily the size of the destination variable. The ADJ instruction 
is used to adjust the set on TOS so that its size matches the size of the 
variable that the set on TOS is to be stored into. This is accomplished by 
adding zeroes to the high order bits of the set on TOS or by truncating the 
high order bits of the set on TOS. UB is the number of words that the final 
set on TOS must occupy. 
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AD J OPERATION: 



I. BEFORE 



IPC- 



ADJ 



UB 



CODE 



SP 



SIZE OF SET 



- SETONTOS 



STACK 



2. ACTION 



fPC- 



ADJ 



UB 



CODE 



SP 



SIZE OF SET 



STACK 



CRUNCH OR 
EXPAND SET 



3. AFTER 



IPC- 



ADJ 



UB 



CODE 



SP 



STACK 



- ADJUSTED SET 
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Syntax: SGS 
Opcode: 151 ($97) 
Operation: Build a singleton set 

TOS contains an integer in the range 0..511. A set is created with a single 
element (the element whose element number is on TOS) set and all other 
bits set to zero. If the integer on TOS is not in the range 0..511 then give 
an execution error. 
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SGS OPERATION: 



1. BEFORE 



IPC- 



SGS 



CODE 
2. ACTION 



IPC- 



SGS 



CODE 
3. AFTER 



fPC- 



SGS 



CODE 



SP 



SP 



SP 



VALUE 



STACK 



V 



VALUE 



STACK 



VALUE 



SIZE OF SET 

STACK 



VALUE 



SET CONTAINING 
SINGLE ELEMENT 



-SET 
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Syntax: SRS 
Opcode: 148 ($94) 
Operation: Build a subrange set 

The two integers on TOS and NOS are checked to make sure they are in 
the range 0..511. If either is out of this range then a run-time error results. 
Otherwise the set [TOS - 1..TOS] is pushed onto the evaluation stack. If 
TOS — 1 > TOS then the empty set ([]) is pushed. 
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SRS OPERATION: 



I. BEFORE 



IPC- 



SRS 



CODE 
2. ACTION 



IPC- 



SRS 



CODE 



3. AFTER 



IPC- 



SRS 



CODE 



SP 



SP 



SP 



VALUE 1 



VALUE 2 



STACK 



VALUE 



VALUE 2 



STACK 



















SIZE OF SET 


STACK 





VALUE 



VALUE 2 



CREATE A SET 
CONTAINING 
ELEMENTS IN THE 
RANGE VALUE 1 .. 
VALUE 2 



SET CREATED 
BY SRS 
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Syntax: INN 
Opcode: 139 ($8B) 
Operation: Set membership 

If the set on TOS contains the member whose bit number is specified by 
NOS, then push true, otherwise push false. This instruction can be used to 
see if a particular bit in a byte string is set. 
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IIMINI OPERATIOIM: 



!. BEFORE 



IPC- 



INN 



CODE 
2. ACTIOIM 



IPC- 



INN 



CODE 
3. AFTER 



IPC- 



INN 



CODE 







VALUE 






















STACK 





VALUE 



STACK 



I— SET 



TRUE OR FALSE 



STACK 



CHECK VALUE™ BIT. 
IF SET, PUSH TRUE; 
OTHERWISE PUSH FALSE 
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Syntax: UNI 
Opcode: 156 ($9C) 
Operation: Set union 

The union of the set on TOS and NOS is pushed onto the evaluation stack. 
The set union is obtained by ORing the set on TOS with the set on NOS. 
This instruction can be used to logically OR a byte string on TOS with a 
byte string on NOS. 

The size of the resulting set is the size of the larger of the two sets. 
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Ul\» OPERATION: 



1. BEFORE 



IPC- 



UNI 



CODE 



2. ACTION 



IPC- 



UNI 



CODE 
3. AFTER 



IPC- 



UNI 



CODE 



SP 



SP 



SP 



STACK 



-SET 



- <;pT 7 







SETl 




EACH BYTE OF 
SET 1 IS OR'D WITH 
^ THE CORRESPONDING — 


SET 2 




BYTE IN SET 2 


STACK 





SET I OR SET 2 



STACK 
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Syntax: INT 
Opcode: 140 ($8C) 
Operation: Set intersection 

The INT instruction performs the intersection of the set on TOS with the 
set on NOS. This is accomplished by ANDing TOS with NOS. This instruc- 
tion can be used to logically AND the byte string on TOS with the byte 
string on NOS. 

The size of the resulting set is the larger of the links of the two sets. 
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INT OPERATION: 



1. BEFORE 



IPC- 



INT 



CODE 



SP 



SETl 



SET 2 



STACK 



2. ACTION 



IPC- 



CODE 



SP -^ 




STACK 



SET 1 IS 
LOGICALLY - 
AND'D WITH 
SET 2 



3. AFTER 



IPC- 



INT 



CODE 



SP 
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Syntax: DIF 
Opcode: 133 ($85) 
Operation: Set difference. 

The set difference of the sets on NOS and TOS is pushed onto the stack. 
The set difference consists of NOS AND (NOT TOS). 



Set Comparisons 

The set comparisons use the non-integer comparisons previously described. 
The UB byte of the non-integer comparison is always eight. Only the EQU, 
NEQ, LEQ, and GEQ operations are supported. LEQ checks for a subset, 
GEQ checks for a superset. TRUE or FALSE is pushed depending upon 
the comparison. 



Byte Array Comparisons 

The byte array comparisons use the non-integer comparisons already described. 
The UB byte is always set to ten for a byte array comparison. The byte array 
comparisons have a second parameter (in addition to the UB byte) that 
specifies the number of bytes that are to be compared. The LES, LEQ, 
GTR, and GEQ opcodes perform a lexicographical comparison and should 
be used with PACKED ARRAYs OF CHAR only 

Record and Word Arrays 

Apple Pascal supports two instructions for comparing arrays and records: 
EQUWORD and NEQWORD. These comparisons use the non-integer 
comparison operators described earlier with the UB byte always set to twelve. 
As with the byte array comparisons, a second parameter follows the UB 
byte denoting the number of words which are to be compared. The word 
structure on TOS is compared to the word structure on NOS and TRUE 
or FALSE is pushed accordingly. 
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DIF OPERATION: 



1. BEFORE 



IPC^ 



DIF 



CODE 



SP 




2. ACTION 



IPC- 



DIF 



CODE 



SP 




SET 1 AND 
NOT SET 2 
IS PUSHED- 



3. AFTER 



IPC- 



DIF 



CODE 



SP 



SET 1 
AND NOT SET 2 



STACK 
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JUMPS 

All jumps except the case jump are two bytes long. The first byte is the 
opcode and the second byte is a signed byte containing an offset. If the 
offset is positive (in the range 0..127) then this value is added to the IPC 
(program counter) register. If the offset is negative, it is used as an index 
into a "jump table" to determine the destination address to which the pro- 
gram must be direrted. 

The jump table is a word-aligned table of self-relative pointers whose last 
byte is pointed at by die p-Machine JTAB register. If the offset described 
above is negative it is sign-extended to 16 bits and added with the JTAB 
register to form an index into die jump table. The two bytes pointed at by 
this addition form a self-relative pointer to die destination address which is 
to be loaded into the IPC register. A self-relative pointer is a pointer whose 
value must be added to the address of the pointer in order to obtain the 

Syntax: UJP SB 
Opcode: 185 ($B9) 
Operation: Unconditional Jump 

Control is transferred to the address specified in die SB parameter as described 
above. 
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UJP OPERATION: 



1. BEFORE 



ipc- 



UJP 



SB 



JUMP TABLE 




3. AFTER 




NEW IPC 
VALUE- 



CODE 
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Syntax: FJP SB 
Opcode: 161 ($A1) 
Operation: False Jump 

The TOS is popped. If it is false, control is transferred to the address spec- 
ified in the SB parameter as per the discussion 
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FJP OPERATION: 



1. BEFORE 



IPC 



FJP 



SB 



CODE 



SP- 



VA1.UE 



STACK 



2. ACTION 

IF VALUE = FALSE 



IPC 



FJP 



SB 



SP- 



VALUE 



IPC = IPC + 2 



CODE 
3. AFTER 



STACK 



IF VALUE WAS FALSE 



IPC 



FJP 



se 



CODE 



SP- 



IF VALUE = TRUE 

JUMP TABLE 




IF VALUE WAS TRUE 




NEW IPC 
VALUE-H^ 



STACK 



CODE 



STACK 
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Syntax: EFJ SB 
Opcode: 211 ($D3) 
Operation: Equal False Jump 

TOS is compared to NOS. If they are not equal then control is transferred 
to the address specified by the SB parameter. 

See discussion on jumps on page 296. 
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EFJ OPERATION: 



1. BEFORE 



IPC 



EFJ 



SB 



CODE 



SP- 



VALUE 1 



VALUE 2 



STACK 



2. ACTION 



IPC 



EFJ 



SB 



SP- 



VALUE 1 •- 



VALUE 2 



CODE STACK 

3. AFTER 

IF VALUE 1 = VALUE 2 



IPC 



EFJ 



SB 



CODE 



SP- 



_ COMPARE VALUE 1 

"to VALUE 2 AND 

" BRANCH IF NOT EQUAL 



IF VALUE 1 <> VALUE 2 




STACK 
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Syntax: NFJ SB 
Opcode: 212 ($D4) 
Operation: Not Equal False Jump 

Jumps to the specified location if the integer on TOS is equal to the integer 
on NOS. 
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ISIFJ OPERATION: 



1. BEFORE 



NFJ 



SB 



CODE 



SP- 



VALUE 1 



VALUE 2 



STACK 



2. ACTION 



IPC- 



NFJ 



SB 



SP- 



VALUE 1 



VALUE 2 



CODE STACK 

3. AFTER 
IF VALUE 1 <> VALUE 2 



-BRANCH !F 
VALUE 1 = VALUE 2 



IF VALUE 1 = VALUE 2 



IPC- 



NFJ 



SB 



CODE 



SP- 




NEW IPC 
VALUED 



STACK 



CODE 



STACK 
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Syntax: XJP Wl,W2,W3,<Case TablO 
Opcode: 172 ($AC) 
Operation: Case Jump 

Wl is word aligned and is the minimum index of the case table (a NOP is 
inserted in the code stream, if necessary, to insure that Wl is word-aligned). 
W2 is the maximum index of the case table. W3 is an unconditional jump 
instruction (UJP) to the location just past the case table. If the value on 
TOS, which is the current index, is outside the range W1..W2 then execute 
the jump instruction "W3". If TOS is within the range W1..W2 then use 
the value (TOS - Wl) as an index into the case table and use the two bytes 
pointed at by this index as a self-relative pointer to the destination location. 

A self-relative pointer is a pointer whose value must be added to the address 
of the pointer in order to obtain the true effective address. 

Procedure and Function Calls 

A description of how the procedure and function calls actually operate is 
beyond the scope of this text. For more information concerning the pro- 
cedure and function calls consult the Apple Pascal Operating System Man- 
ual, Pages 240 through 264. 
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XJP OPERATION: 



1. BEFORE 

IPC- 



XJP 



w\ 



W3 



SP 



CASE TABLE 



VALUE 



2a. ACTION IF (VALUE <W1 ) OR (VALUE >W21 



IPC- 



XJP 



Wl 



W2 



W3 



CASE TABLE 
+ IPC 



CODE 



SP 



STACK 
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2b. ACTIOIM OF (VALUE > = Wl ) OR (VALUE < = W2) 




+ IPC 



XJP 



Wl 



W2 



W3 



CASE TABLE 



CODE 



SP 



y^ 



VALUE 



STACK 



3. AFTER 



IPC 



SP 



CODE 



STACK 
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Inside the P<ode Interpreter 



The following section is intended for machine language programmers who 
would like some insight into the operation of the Apple Pascal P-code inter- 
preter. This section provides a "road-map" to the p-code interpreter explain- 
ing how verious sections work. With this information an assembly language 
programmer can optimize the p-code interpreter, add new features, and take 
advantage of existing code. The Apple Pascal p-code interpreter is actually 
divided into three major sections: the p-code interpreter (proper), the Run- 
time support package (RSP) and the Basic Input/Output System (BIOS). 

The p-code interpreter resides in bank #1 of the $DOOO..$DFFF range and 
in the $EOOO..$FFFF range. The RSP resides in the $EOOO..$FFFF range 
(intermixed with portions of the p-code interpreter). The BIOS resides 
mainly in bank #2 of the $DOOO.$DFFF range with a small portion appear- 
ing in the $F800..$FFFF range. This section will ignore the RSP and BIOS 
portions and will concentrate on the p-code interpreter for Apple Pascal 
vl.l. 



Zero Page Variables 

The Apple Pascal p-code interpreter uses zero page extensively for tempo- 
rary and permanent variable storage. Most importantiy, zero page pointers 
are used to implement the p-machine registers including IPC, NP, KP, 
BASE, MP, JTAB, SEG, etc. 

Some of the zero-page variables used by the version 1.1 p-code interpreter 
include: 
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$50,$51 BASE: p-machine BASE register. 

$52,$53 MP: Markstack pointer (p-machine register). 

$54,$55 JTAB: Jump table pointer (p-machine register). 

$56,$57 SEG: Segment pointer (p-machine register). 

$58,$59 IPC: Interpreter program counter (p-machine register). 

$5A,$5B NP: New pointer (p-machine register). 

$5C,$5D KP: Program stack pointer (p-machine register). 

$5E,$5F Vars: Stachoice. 

$5E, $5F BIG: used to hold "BIG" opcode parameters. 

$60, $61 DIE: used during set and arithmetic operations. 

$62, $63 PREVMP: used to hold MP register during static link traversal. 

$64, $65 SUM: used during arithmetic operations. 

$66, $67 SPTEMP: used to hold stack ptr. 

$68, $69 SOURCE: used during block moves. 

$6A,$6B DEST: Used for block moves, etc. 

$6C,$6D MASK: Used in masking operations (i.e., sets). 

$6E..$70 JMP instruction: used for transferring control to one of 
the p-code routines. 



308 



$71. .$73 JMP instruction: used for transferring control to a CSP 
routine. 

$74. .up Temporaries used by the p-machine. 

NOTE: The 6502 stack pointer is used as the evaluation stack pointer. 

The Apple Pascal p-code interpreter consists of a main loop that fetches a 
p-code from memory and transfers control to a 6502 subroutine that emu- 
lates the actions of the specified p-code. After the routine is executed IPC 
is incremented bv one, two, three or more (deoendins on the lenath of the 
p-code instruction) and control is returned to the main loop. 

At the beginning of the p-code interpreter (at address $D000) is a table, 
256 bytes long, containing the addresses of the 128 active p-code instruc- 
tions (i.e., all p-codes except the SLDC instructions). Each address is two 
bytes long and points to the beginning of the routine used to handle the 
specific p-code. The p-codes, the address of the routine, and the address of 
the address of the routine appear in the following table. 
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P-CQDE (ADRS) 


TABLE 


P-CDDE (ADRS) 


TABLE 


P-CODE 


(ADRS) 


TABLE 


ABI 


D6BB 


DOOO 














ABR 


ECB2 


D002 


KJP 


D59E 


D058 


NOP 


D24D 


DOAE 


ADI 


D6D9 


D004 


RNP 


E33F 


D05A 


SLDLO 


D2A9 


DOBO 


ADR 


EAC2 


D006 


CIP 


E253 


D05C 


" 1 


D2A9 


D0B2 


LAND 


D5BB 


D008 


CEQL 


DDES 


DOSE 


" 2 


D2A9 


D0B4 


DIFP 


DB57 


DOOA 


CGEQ 


DDEO 


DOBO 


" 3 


D2A9 


DOBB 


DVI 


D839 


DOOC 


CGTR 


DDD8 


D0B2 


" 4 


D2AS 


DOBS 


DUR 


EB5A 


DOOE 


LDAP 


D3AD 


D0B4 


" 5 


D2A9 


DOBA 


CHK 


D87E 


DO 10 


LDC 


D495 


DOBB 


" 6 


D2A9 


DOBC 


FLO 


ED3F 


DO 12 


CLEQ 


DD34 


D0S8 


" 7 


D2A9 


DOBE 


FLT 


EDB2 


D014 


CLSS 


DDDC 


DOSA 


" 8 


D2A9 


DOCO 


INN 


DC55 


D016 


LOD 


DE87 


DOSC 


" 9 


D2A9 


D0C2 


INT 


DB20 


D018 


CNEQ 


DDD4 


DOGE 


" A 


D2A9 


D0C4 


LOR 


D57E 


DOIA 


STR 


D3DB 


D070 


" B 


D2AS 


DOCG 


MODI 


D8B6 


DOIC 


UJP 


D2B7 


D072 


" C 


D2AS 


DOCS 


MPI 


D742 


DOIE 


LDP 


DAIC 


D074 


" D 


D2AS 


DOCA 


MPR 


EC55 


D020 


STP 


DA72 


D07B 


" E 


D2AS 


DOCC 


NGI 


DGFl 


D022 


LDM 


D4C8 


D078 


" F 


D2A9 


DOCE 


NGR 


ECCO 


D024 


STM 


D4FB 


D07A 


SLDOO 


D31S 


DODO 


LNOT 


D591 


D02B 


LDB 


D523 


D07C 


" 1 


D318 


D0D2 


SRS 


DCCC 


D028 


9TB 


D53D 


D07E 


" 2 


D318 


D0D4 


SBI 


D703 


D02A 


IKP 


D9D9 


DOBO 


" 3 


0318 


DODB 


SBR 


EB09 


D02C 


RBP 


E32A 


D082 


" 4 


D31S 


DODS 


SGS 


DCBA 


D02E 


CBP 


E2F9 


D084 


" 5 


D31S 


DODA 


SOI 


D789 


D030 


EQUI 


DFB5 


D08B 


" B 


D318 


DODC 


SQR 


EC7D 


D032 


GEQI 


DF37 


DOSS 


" 7 


D31S 


DODE 


STO 


D47B 


D034 


GTRI 


DF2F 


DOSA 


" 8 


D318 


DOEO 


IXS 


D948 


D03B 


LLA 


D2D4 


DOSC 


" S 


D31S 


D0E2 


UNI 


DB79 


D038 


LDCI 


D29D 


DOSE 


" A 


D31S 


D0E4 


LDE 


Daoi 


D03A 


LEQI 


DF33 


D090 


" B 


D31S 


DOES 


CSP 


EB30 


D03C 


LESI 


DF2B 


D092 


" C 


D318 


DOES 


LDCN 


D29B 


D03E 


LDL 


D2BB 


D094 


" D 


D31S 


DOEA 


ADJ 


DBE5 


D040 


NEQI 


DF3B 


DOSS 


" E 


D31S 


DOEC 


FJP 


D25F 


D042 


STL 


D2FA 


DOSS 


" F 


D318 


DOEE 


INCP 


D987 


D044 


CXP 


E2D4 


DOSA 


SINDO 


D4B1 


DOFO 


IND 


D9SB 


D04B 


CLP 


E2A1 


D09C 


SINDl 


D4B7 


D0F2 


IXA 


D99A 


D048 


CGP 


E2BD 


D09E 


" 2 


D4B7 


D0F4 


LAO 


D343 


D04A 


LPA 


D8CD 


DOAO 


" 3 


D4B7 


D0F6 


LSA 


D8E5 


D04C 


STE 


D42B 


D0A2 


" 4 


D4B7 


DOFS 


LAE 


DaaB 


D04E 


NOP 


D24D 


D0A4 


" 5 


D4B7 


DOFA 


MOV 


D557 


D050 


_ _ _ 


DIEF 


DOAB 


" S 


D4B7 


DOFC 


LDO 


D325 


D052 


_ _ _ 


DIEF 


D0A8 


" 7 


D4B7 


DOPE 


SAS 


D907 


D054 


BPT 


E82B 


DOAA 








SRO 


D3S9 


D05B 


XIT 


DBAO 


DOAC 









Table 6- 1 : Addresses of p-code routines 
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Immediately following the p-code table comes a short table of addresses for 
CSP routines. Whenever the CSP p-code is executed, the byte following 
the CSP opcode is fetched, doubled, and used as an index into this table at 
address $D100. The entries in this table are: 



CSP 


(ADRS) 


TABLE 


CSP 


(ADRS) 


TABLE 


CSP 


(ADRS) 


TABLE 


IOC 


EF04 


DlOO 


RSRUD 




DUE 


EKP 


DIEF 


D13C 


NEt^i 


DB2F 


D102 


RSRUD 


0000 


D120 


SQRT 


DIEF 


D13E 


MO^L 


E8A0 


D104 


RSRUD 


0000 


D122 


MRK 


DBBB 


D140 


MOyR 


ESAO 


DIOB 


RSRUD 


0000 


D124 


RLS 


DB82 


D142 


EXIT 


E78a 


D108 


RSRUD 


0000 


D12B 


lOR 


EEF9 


D144 


UREAD 


FOBS 


DIOA 


RSRUD 


0000 


D12S 


UBUSY 


EFOF 


D146 


UWRT 


FOSE 


DIOC 


LDS 


EBIC 


D12A 


POT 


EDE5 


D148 


IDS 


ES3A 


DIOE 


ULS 


EB2B 


D12C 


UWAIT 


EFID 


D14A 


TRS 


EB40 


DUO 


TNC 


EDDO 


D12E 


UCLR 


EFA5 


D14C 


TIME 


EBai 


D112 


RND 


EDBB 


D130 


HLT 


E833 


D14E 


FLCH 


EBB2 


D114 


SIN 


DIEF 


D132 


MEMAM 


E90a 


D150 


SCAN 


EBF7 


DllB 


COS 


DIEF 


D134 








USTAT 


EF27 


D118 


LOG 


DIEF 


D13S 








RSRUD 


0000 


DllA 


ATAN 


DIEF 


D138 








RSRUD 


0000 


DllC 


LN 


DIEF 


D13A 









Table 6-2: Addresses of CSP routines 



Note that some of the routines in the CSP table are reserved for future use. 
Also, the transcendental and log routines are not implemented (DIEF is a 
jump to the unimplemented opcode error). 

Immediately following the CSP routine address table is the p-interpreter 
startup location. The BIOS, after handling its own boot-up chores, jumps 
to this location when the Pascal system is booted up. There's a jump at this 
location that transfers control to a routine at address $F275. The routine at 
ackkess-$F2-75 copies itself down- to «idress-$6860""andiitcn jttmps to the 
routine beginning at location $6827 (thereby skipping the code that per- 
formed the transfer). The IK of memory space freed by this transfer will 
be used by the system later on. This initialization code sets up BIOS vari- 
ables, initializes the p-machine, loads in SYSTEM.PASCAL, and then trans- 
fers control to the main interpreter loop at address $D253. Following the 
initial jump are several utility subroutines, the interpreter main loop, and 
the p-code routines. These will be discussed on a routine-by-routine basis. 
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D155 — D170 GETBIG routine. This routine extracts a parameter from 
the code stream. If the byte immediately after the current p- 
code is positive then it is multiplied by two (to convert it 
to a word pointer in the range 0..$FE). If this byte is neg- 
ative then the next two bytes are fetched and used as a two- 
byte word pointer. 

D171 - D18F TRVSTAT routine. This routine traverses X static links 
where X is passed in the 6502 X-register. This is accom- 
plished by replacing MP with the two bytes pointed at by 
MP "x" times. 

D190 - DIAC CHKGDRP routine. Check to see if there is a pointer 
to a directory block present on the heap. If so, de-allocate 
the storage for it and return. Otherwise do nothing and 
return. A pointer to the directory block (2K) is stored at 
address $BDE6 and $BDE7. If it is zero, no directory block 
exists. If it is non-zero it is copied to the NP register (heap 
pointer) and then set to zero. 

DIAD — D1B5 Interpreter relative relocation table. The first two bytes 
contain the address of the next two bytes. The second two 
bytes contain the address of the XEQERR routine, the third 
address is the address of the BIOS jump table, the fourth 
address is the address of the SYSCOM area, and the fifth 
address is the address of the zero page workspace. 

D1B7— D22D XEQERR routine. This routine is called whenever an 
execution error occurs. Location D1B7 is called if an invalid 
index is detected (i.e., array out of boimds). Location DIBB 
is called if an attempt is made to load a segment which isn't 
on the disk (no such segment). Location DIBF is jumped 
to if an attempt to exit from an uncalled procedure is made. 
Location D1C3 is called if a stack overflow occurs. Location 
DIDB should be called in the event of an integer overflow, 
but Apple Pascal doesn't check for integer overflow so this 
entry point is probably never jumped to. The p-code inter- 
preter jumps to address DIDF if a division by zero is 
attempted. The routine at D1E3 is called if the user break 
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key is pressed. D1E7 is called if a system I/O error occurs 
and DIEB is called if a user I/O error occurs. The p-code 
interpreter transfers control to location DIEF if an unim- 
plemented p-code is encountered. If a floating point error 
occurs control is transferred to location $D1F3 and $D1F7 
is called if a string too long error occurs. 

After any of the above XEQERR routines are called control 
is transferred to the general XEQERR routine at address 
DIFB. At this point the stacks are reinitialized and the IPC 
is nointed at a CXP 2 instruction 'which reinitializes the 
system) and control is transferred to the main interpreter 
loop (thus causing execution of the CXP 0,2 instruction). 

D22E - D239 UPIPC3: Up the IPC register by three. Adds diree to the 
IPC register and then transfers control to the main inter- 
preter loop. Many three-byte p-code instructions jump here 
after the execution in order to bump the IPC and execute 
the next p-code. 

D23B - D246 UPIPC2: Increments the IPC by two and jumps to the 
interpreter's main loop. This code is called by most two- 
byte p-code instructions. 

D248 -D24C SLDC p-code routine. This short routine pushes the p- 
code fetched onto the p-machine evaluation stack (which is 
the 6502 hardware stack). 

D24D-D251 UPIPCl: Increments the IPC by one. Most one-byte, 
and many two- and three-byte instructions jump here to 
return control to the interpreter main loop. 

D253 - D25C Interpreter main loop: This short section of code fetches 
a p-code from the location pointed at by the IPC. If the high 
order bit of the p-code is zero, then control is transferred to 
location D248 (SLDC). Otherwise the p-code is multiplied 
by two and this value is used as an index into the table at 
address $D000. Control is transferred to the routine pointed 
at in this table. 
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D25F-D265 FJP p-code routine. This ccxie emulates the p-machine 
false jump instruction. A word (two bytes) is popped oflFof 
the stack. If the low order bit of this word is equal to one 
then the FJP routine jumps to UPIPC2. Otherwise (if the 
low order bit of the word on TOS contained zero) control 
drops through to the UJP instruction which follows. 

D267 - D293 UJP p-code routine. This code emulates the p-machine 
unconditional jump instruction. The byte immediately fol- 
lowing the opcode is fetched. If it is positive then this value 
is added to the IPC and control is transferred back to the 
main loop. If the byte following the opcode is negative then 
control is transferred to the INJTAB routine at location $D279 
where the minus value is used as an index into the jirnip 
table for the current procedure. The address in the jump 
table is subtracted from the address of the jump table and 
this value is placed in the IPC. Control is passed back to the 
main interpreter loop. 

D296 - D29A LDCN p-code routine. The code at this address pushes 
the implementation-dependent value for NIL onto the stack. 
Since, on the 6502, NIL is represented by the value zero 
this routine pushes zero onto the evaluation (6502 hard- 
ware) stack. Control is transferred to the UPIPCI location. 

D29D - D2A6 LDCI p-code routine. This routine fetches the two bytes 
that follow in the code stream and pushes them onto the 
evaluation stack. The high order byte is pushed first, low 
order byte is pushed last. This leaves the low order byte of 
the value on the TOS. 



D2A9 - D2B3 SLDLX p-code routine. Upon entering this routine the 
6502 accumulator contains the opcode shifted to the left 
(multiplied by two). $A3 is subtracted from this value leav- 
ing a value in the range $35. .$44. The word at address 
MP + Ace (where MP is the p-machine MP register and Ace 
is the 6502 accumulator) is pushed onto the evaluation stack. 



314 



D2B6 - D2D3 LDL p-code routine. This routine loads a local variable 
from die current activation record. It begins by fetching a 
"big" parameter immediately after the opcode (the JSR D155 
at address D2D6) which returns the byte offset into the 
activation record. This byte offset is added with the MP 
register and the word pointed at by this sum is pushed onto 
the 6502 stack. 

D2D4 — D2F9 LLA p-code routine. This routine is quite similar to the 
LDL routine above, except that the address of a local word, 
ratiici tiian tiic uata at tiiat auuress, is pusned onto the stack. 
It calls "GETBIG" in order to fetch the one or two byte 
parameter that follows the opcode. This value is returned in 
BIG (zpage location $5E). This value is added to MP (zpage 
location $52) and this sum is saved. Finally, the value 10 is 
added to this sum (ten is the size of the activation record 
minus two) and the result is pushed onto the stack. 

D2FA- D317 STL p-code routine. This routine stores the data on the 
evaluation stack into the local activation record area. It fetches 
a "big" parameter with a call to "GETBIG", calculates die 
address of the data where TOS is to be stored (in the same 
manner as that used for LDL and LLA) and then stores the 
data on TOS at that location. 

D318-D324 SLDOX p-code routine. This routine loads one of the 
first 16 words of global storage onto the stack. This is a 
short (one-byte) instruction that allows quick access to any 
of the first sixteen words of storage in the main procedure. 
Upon entry the 6502 accumulator contains the SLDOX 
opecxie-times two^MOD 256 fwhkiHs^aTakie in-thcT^^ 
$DO..$EF). $C4 is subtracted from this value (upon entry 
the carry is cleared, so although the actual instruction is SBC 
#$C3, the true value subtracted is $C4) to obtain an index 
in the range 12.. 28 which is used as an index off of BASE 
to obtain a pointer to the word to be pushed. The word 
pointed at by BASE plus this index is pushed onto the eval- 
uation stack. 
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D325 — D342 LDO p-code routine. This routine is used to load a global 
variable onto the evaluation stack. It is virtually identical in 
operation to the LDL p-code except that the indexing is 
performed off of the BASE register instead of the MP register. 

D343 — D368 LAO p-code routine. This routine is used to load the 
address of a global variable onto the evaluation stack. It is 
identical to the LLA instruction except that indexing is per- 
formed off the p-machine BASE register instead of the MP 
register. 

D369 — D386 SRO p-code routine. This routine stores the data on the 
TOS into the global variable whose word offset follows the 
opcode. This routine is identical to the STL instruction except 
that indexing is performed off of the BASE register instead 
of the MP register. 

D387 — D3AC LOD p-code routine. This routine loads a word from an 
intermediate level routine. It begins by fetching the number 
of lex levels to descend and then it calls a routine to drop 
down that many static links. Upon return the PREVMP 
register contains a pointer to the activation record of the 
procedure in mind. The "BIG" parameter immediately after 
the static link parameter is fetched and is added to the value 
in PREVMP. This value plus 10 is a pointer to the word 
desired. The Y register is loaded with 1 1 (which points at 
the high byte of the word to be pushed) and the two bytes 
comprising the desired word are pushed onto the 6502 stack. 

D3AD — D3DA LDA p-code routine. This routine loads the address of 
some intermediate variable onto the stack. It begins, just like 
the LOD routine by fetching the number of lex levels to 
traverse and dropping down that many static levels (accom- 
plished by calling the static link traversal routine). The offset 
into this activation record (a "BIG" parameter) is fetched 
and added to the value in the PREVMP register. Ten is added 
to the sum (the width of the mark stack control word) and 
the resulting sum (which is the address of the desired word) 
is pushed. 
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D3DB - D400 STR p-code routine. The STR routine pops the data on 
TOS and stores it into the intennediate variable whose lex 
level and offset are specified after the opcode. This instruc- 
tion operates identically to LOD except that the data is popped 
off of the stack and stored into memory instead of vice versa. 

D401 - D425 LDE (LoaD Extended) p-code routine. This routine loads 
a word from the activation record of an intrinsic unit. The 
byte immediately following the opcode is fetched at addresses 
$D401..$D406 and is left in the X-register. This is the seg- 
ment number from which the word is to be fetched. The 
"BIG" parameter following the segment number is fetched 
widi a call to GETBIG at address $D408. Once die BIG 
parameter is fetched it is added to the address of the desired 
segment w^hich is fetched from the SYSCOM area by index- 
ing off of SEGTABLE with the value in the X-register (the 
segment # times two). The word pointed at by this sum is 
pushed onto the stack at addresses $D41A..$D422. 

D426 - D44A STE (STtore Extended) p-code routine. This routine is 
the exact converse of the LDE p-code described above. The 
only difference between the two routines is the fact that STE 
pops data off of the stack and stores it into main memory 
instead of pushing data onto the stack. The code from 
$D426..$D43E is virtually identical to the first 13 state- 
ments of the LDE routine. From $D43F to $D446 STE 
pops data off of the stack instead of pushing data onto the 
stack. 

D44B — D466 LAE (Load Address, Extended) p-code routine. This 
routine calculates the address of a word within a different 
segment (in an identical manner to.LDE and STE) and then 
pushes the address calculated onto the stack. 

D467 - D47A SINDx (Short INDex and load) p-code routine. This 
routine handles the eight short indexed load routines 
(SIND0..SIND7). The opcodes for these routines (times 
two and MOD 256) are in the range $FO..$FE. This value 
is in the accumulator upon entry (and the carry is set). $F0 



317 



is subtracted from the value in the accumulator to normalize 
this to a value in the range $0..$E which is then transferred 
to the Y-register. This value will be used as the index. The 
word on TOS is popped off and stored into a zero page 
memory location. Then the (Zpage),y addressing mode is 
used to fetch the word specified by the SINDx instruction. 
A special entry point is provided for SINDO because this 
instruction is emitted quite often by the Pascal compiler. 
This entry point at address $D46A assumes that the Y-reg- 
ister contains zero on entry (which it does) and avoids the 
SBC and TAY instructions at address $D467..$D469. 

D47B — D494 STO (store indirect) p-code routine. This routine pops 
two words off of the stack and stores them into a pair of 
zero page memory locations ($74.. $77). The first word 
popped off of the stack is stored at the memory location 
pointed at by the second word popped off of the stack. 

D495 — D4C7 LDC (load multiple word constant) p-code routine. The 

UB parameter which follows the LDC instruction is fetched 
and saved in the X-register. This value is also incremented 
by one, multiplied by two, and then stored into memory 
location $74. This is the total number of bytes required by 
this instruction (n words at two bytes each plus the one byte 
UB value and the one byte opcode). Next the IPC is incre- 
mented by one if it is not on a word boundry. Certain 16- 
bit processors (such as the 68000) require that all 16-bit 
data be aligned on word boundries. Once this is accom- 
plished, the next 'UB' words are read from the code stream 
and pushed onto the stack. Finally, the value saved in loca- 
tion $74 is added to the IPC and control is returned to the 
main interpreter loop. 

D4C8 — D4F5 LDM (load multiple words) p-code routine. This rou- 
tine begins by fetching the UB parameter that follows the 
opcode. This value (the number of words to push) is mul- 
tiplied by two (to get the number of bytes to push) and then 
copied into a temporary location. Then the stack is checked 
to make sure that there is enough room on the stack to hold 
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the data being pushed. If there is not, then a jump to the 
stack overflow routine is made. Assuming there was enough 
room on the stack, a pointer to the block of data to be pushed 
is popped off of the stack and saved into memory location 
$68. Finally, the UB words pointed at by locations $68 and 
$69 are pushed onto the 6502 hardware stack (p-machine 
evaluation stack). 

D4F6 - D522 STM (store multiple words) p-code routine. This guy 
checks the UB parameter that follows to find out how many 
words are to be stored into memory. UB*2 is used as an 
index into the stack to find the pointer to the memory area 
where TOS is to be stored. The 'UB' words on TOS are 
popped and stored into the memory locations described by 
the above pointer. Finally, the pointer is removed from the 
stack and control returns to the p-machine's main loop. 

D523 - D53C LDB (load byte) p-code routine. TOS contains an index 
into a byte array. TOS - 1 is a pointer to the base address 
of a byte array. TOS is added to TOS - 1 and the sum forms 
a pointer to the byte to be pushed. A zero (for the H.O. 
byte) is pushed followed by the byte pointed at by the above 
mentioned sum. 

D53D - D556 MOV (move words) p-code routine. TOS (a pointer to 
a block of 'B' words) is popped and stored into locations 
$68 and $69. TOS - 1 (a pointer to a similar block of 'B' 
words) is popped and stored into locations $6A and $6B. 
Next, the 'BIG' parameter that follows the opcode is fetched 
by calling the GETBIG subroutine. Finally, the data pointed 
at by $68/$69 is moved to the block pointed at by $6A/$6B 
with a call to the block move rcmtinc. 

D56B-D57D LAND (logical and) p-code routine. Two words are 
popped oflFof the stack, logically AND'ed with one another, 
and pushed back onto the stack. 

D57E -D590 LOR (logical OR) p-code routine. The two words on 
TOS are popped, logically OR'ed, and the result is pushed. 
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D591-D59D LNOT (logical NOT) p-code routine. The word on 
TOS is popped XOR'ed widi $FF (inverted) and pushed 
back onto the stack. 

D59E — D62E XJP (case jump) p-code routine. The jump index (on 
TOS) is popped and compared to the first word-aligned 
word following the XJP opcode. If TOS is less than this 
value, the IPC register is loaded with the address of the third 
word- aligned word following the XJP opcode and control 
is transferred to the main interpreter loop. If TOS is greater 
than or equal to Wl, then it is compared to the second word- 
aligned word following the XJP instruction (W2). If TOS 
is greater than this value then the IPC is pointed at W3 and 
control is transferred to the interpreter main loop. Other- 
wise, the value (TOS-Wl)*2 is used as an index into the 
table which immediately follows the W3 value. The table 
entry pointed at by this value is subtracted from the address 
of the table entry. This difference is loaded into the IPC and 
control is returned to the interpreter main loop. 

D62F — D66A NEW p-code routine. This routine handles the Pascal 
NEW procedure. It begins by checking to see if space has 
been reserved on the stack for a directory. If so, the directory 
space is de-allocated. Next the NEW routine pops two words 
off of the evaluation stack. The first word is the size (in 
words) of the variable being allocated, the second word is 
the address of the pointer to the new variable. The value in 
NP (new pointer) is stored into the pointer variable and 
then the size value is added to the NP register. Finally, the 
NP and KP pseudo-registers are compared to make sure 
stack overflow has not occurred. 

D66B - D681 MRK (mark stack) p-code routine. This routine checks 
to see if space was allocated on the top of the heap for the 
directory. If so, it is de-allocated. Next a word pointer is 
popped off of the stack and the NP register is copied into 
the word pointed at by this value. 
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D682 — D69F RLS (release stack) p-code routine. A word pointer is 
popped off of the TOS. The two bytes pointed at by this 
b}T:e are loaded into the NP register and the directory pointer 
is set to NIL. 

D6A0 — D6BA XTT p-code routine. This opcode stores the 6502 
instructions "LDA $C08A" and "JMP ($FFFC)" at loca- 
tions $0..$5 and then executes this code. This turns off the 
language card and simulates a reset. 

D6BB — D6D8 ABI (absolute value, integer) p-code routine. This rou- 
tine pops the value oft of TOS. If it is positive, it gets pushed 
back onto TOS. If it is negative then the two's complement 
is taken and the positive value is pushed back onto the stack. 

D6D9 - D6F0 ADI (add integers) p-code routine. The two words on 
TOS are popped, added, and the sum is pushed back onto 
the stack. 

D6F 1 - D702 NGI (negate integer) p-code routine. The word on TOS 
is popped, negated, and then pushed back onto the stack. 

D703 - D71A SBI (subtract integers) p-code routine. The integer on 
TOS is subtracted from the integer on TOS-1 and the dif- 
ference is pushed back onto the stack. 

D71B-D742 Multiply routine. The integers (signed) at addresses 
$88..$8B are multiplied and the result is left in location $8C 
and $8D. 

D742 - D788 MPI (multiply integers) p-code routine. Two integers 
are popped off of the stack. If they are both positive, or if 
they arecrfdifferent signs, then die routiiK at addr^s$D71B 
is called and the resulting product is pushed. If the values 
popped off of the stack are both negative then they are both 
negated and treated as though they were both positive. 

D789 - D794 SQI (square integer) p-code routine. This routine dupli- 
cates the TOS and jumps the the MPI routine at address 
$D742. 
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D795 - D838 DVIMOD routine. This routine takes the 16-bit value in 
memory locations $88 and $89 and divides it by the signed 
integer in locations $86 and $87. The remainder (MOD) is 
left in locations $88 and $89, the quotient is left in locations 
$8C and $8D. Note that no check for underflow or overflow 
is made. 

D839 - D865 DVI (divide integers) p-code routine. This routine pops 
two values off" of the top of stack and calls the DVIMOD 
routine to divide TOS-1 by TOS. Upon return from DVI- 
MOD, DVI checks to see if both the divisor and dividend 
were of the same sign. If they were not, then the positive 
quotient is negated. Lastiy, the quotient is pushed back onto 
the stack and control is returned to the main interpreter 
loop. 

D87E - D8CC CHK (check subrange) p-code routine. This code pops 
two words off" of the stack and compares them to the new 
TOS value. If (TOS - 1) < = TOS - 2 < - TOS then con- 
trol is transferred back to the main interpreter loop. Other- 
wise a runtime error (bounds violation) is forced. 

D866 - D87D MODI (modulo integers) p-code routine. This routine 
is identical to DVI except the remainder is pushed back onto 
the stack. 

D8CD - D8E4 LPA (load packed array pointer) p-code routine. This 
routine pushes the contents of the IPC plus two onto the 
evaluation stack. This pushes a pointer that points to the first 
character of the string (just past the length byte) that follows 
the LPA instruction. Once this is accomplished, the length 
byte (which immediately follows the LPA opcode) plus two 
is added to the IPC so that it points at the first p-code imme- 
diately following the string. Control is then returned to the 
main interpreter loop. 

D8E5 - D906 LSA (load string address) p-code routine. This routine 
operates identically to the LPA opcode except that the address 
pushed onto the stack is the IPC value plus one. This pushes 
a pointer to the string (at the length byte) which immedi- 
ately follows the LSA opcode. The IPC is moved beyond 
the string and control is returned to the main loop. 
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D907— D947 SAS (string assign) p-code routine. On the top of stack 
are two words. The first is either a pointer to a source string 
or a single character. (If the high order byte is zero, then it 
is a single character, if it is non-zero then it is a pointer). 
The word on TOS - 1 is a pointer to a destination string. If 
TOS is a single character then the value one is stored at the 
address pointed at by TOS - 1 and the character is stored in 
the next consecutive address. If a string pointer is on TOS, 
then the length of that string (which is pointed at by the 
pointer) is compared to the UB value that follows the SAS 
opcode. If the length of the string is greater than this UB 
value a run- time bounds error occurs. Otherwise the strin''" 
pointed at by the pointer on TOS is stored into the string 
pointed at by TOS - 1. The IPC is incremented by two and 
control is transferred to the main interpreter loop. 

D948 — D96A DCS (index string array) p-code routine. TOS contains 
an index into a string array. TOS - 1 is a pointer to a string. 
If TOS is outside the range I.. 255 then give an execution 
error. If TOS is greater than the current length of the string 
give an execution error. Otherwise return to the main loop 
leaving TOS and TOS — 1 on the stack. 

D96B — D986 IND (static index and load word) p-code subroutine. 

TOS is a pointer to a word structure. It is popped and 
added to the 'BIG' parameter diat follows the IND opcode. 
The word pointed at by this sum is pushed onto the stack. 

D987 — D999 INC (increment field pointer) p-code routine. The word 
on TOS is popped, added to the 'BIG' parameter that fol- 
lows the opcode, and the resulting sum is pushed. 

D99A— D9D8 IXA (index array) p-code routine. TOS is an integer 
ind&ciftto^i array whose base ^dement is at TOS- 1. A 
'BIG' parameter is fetched from the code stream, this is the 
size of each element of the array. This 'BIG' value is checked 
to see if it is two. If it is, the value on TOS is multiplied by 
tss'O (by shifting it to the left) and then added to the base 
address. If the 'BIG' value is not two, then the value on TOS 
is multiplied by 'BIG' and the product is added to the base 
address. The sum is left on TOS. 
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D9D9-DA1B IXP (index packed array) p-code routine. IXP is fol- 
lowed by two unsigned byte parameters in the code stream 
and there are two words of parameters on TOS. TOS is an 
integer index and TOS - 1 is the array base pointer. To begin 
with, the two UB values are fetched from the code stream 
and saved in temporary zero page locations. The high order 
bytes for these values are then zeroed. Next the integer index 
is popped off the stack and saved into a pair of zero page 
memory locations. Then DVIMOD is called to compute 
"index div UBl" aad "index mod UBl". The quotient is 
shifted to the left to convert it from a word index to a byte 
index. This byte offset is added to the array base address 
(which is popped off" of the stack). This sum points at the 
byte containing the bit field we are interested in. This byte 
pointer is pushed onto the stack. Next the field width, which 
is the value "index mod UBl", is pushed onto the stack. 
Finally the right bit number (computed by: rbn : = 
UB2*(index mod UBl)) is pushed onto the stack. 

DAIC - DA71 LDP (load packed field) p-code routine. LDP expects 
a three byte packed field pointer on the top of the stack. The 
byte on TOS is the right bit number, TOS - 1 is the field 
width, and the byte at TOS - 2 is a pointer to the byte where 
the structure is located. These three bits are popped and 
stored into zero page memory locations. The word pointed 
at by the pointer is loaded into memory locations $7E and 
$7F. If the right bit number is greater than eight, then loca- 
tion $7F is stored into location $7E and eight is subtracted 
from the right bit number (this performs a fast shift by 
eight). Next, the bits in location $7E and $7F are shifted to 
the right 'right bit number' times. This right justifies the 
field into locations $7E and $7F. Finally the field width is 
multiplied by two and used as an index into a table of two- 
byte masks. Locations $7E and $7F are AND'ed with these 
two masks (to turn off" the unnecessary high order bits) . The 
result is pushed onto the evaluation stack. 
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DA72-DAFA STP (store into a packed field) p-code routine. This 
instruction pops the word off the top of the stack and stores 
it into the packed field pointer which occupies the three 
words of storage immediately below the data on the stack. 
This routine begins by popping the data, right bit number, 
and field width pointer oflf of the stack. The data is then 
masked so that only the pertinent bits are retained. Next, 
the data is shifted so that data is properly aligned. Then a 
pointer to the word structure where this data is to be stored 
is popped off of the stack and the two words pointed at by 
this pointer are fetched. The bit positions where the data is 
to be stored is zeroed out and the data is OR'ed into this 
spot. Finally, the data is stored back into the memory word 
described by the pointer popped off of the stack. 

DAFB-DBID FIXSET routine. Most of the stack operations expect 
two sets to appear on the top of the stack. The stacks have 
the format: 



Size B 



Set B 



Size A 



KrSet A 



m 



Figure 6-1 
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where 'size B' is on the top of stack and is the number of 
words in the set B (also on the stack). FIXSET pops size B 
oflFof TOS and stores it into locations $7C and $7D ($7D 
is always zero). Next a pointer to the 'size A' word is com- 
puted and this value is loaded into the 6502 accumulator. A 
pointer to the A set is stored into location $74 (only one 
byte is stored since it is known that the set is always in page 
one). Finally, the return address (which was popped and 
stored into locations $8C and $8D) is incremented by one, 
and control is returned to the calling procedure by jumping 
indirect through locations $8C and $8D. 

DB20 — DB56 INT (set intersection) p-code routine. Set intersection 
is performed by AND'ing set B with set A. If the sets are 
not the same size, then the high order 'n' words of the resul- 
tant set are set to zero. This routine AND's the low order 
bytes of A with the low order bytes of B and stores the result 
back into A until 'n' words have been AND'ed together 
(where 'n' is the minimum of size A and size B). Finally, 'm' 
words of zero are pushed, where 'm' is the absolute value of 
the difference between size A and size B. Finally, the 6502 
stack pointer is tweaked so that it points at the new set just 
created. 

DB57 - DB78 DIF (Set difference) p-code routine. This routine logi- 
cally negates set B and then AND's it into set A. After FIXSET 
is called, the X-register is loaded with the value min(size B, 
size A) and then this many bytes are taken from set B, inverted, 
and AND'ed with the corresponding byte in set A. If there 
are more entries in set A than set B, the high order entries 
are left untouched. Finally, the SP register is loaded with 
the pointer to set A and control is returned to the main 
loop. 

DB79 — DBE4 UNI (set union) p-code routine. This routine compares 
the size of A with the size of B. If size A is greater than or 
equal to the size of B, then a short routine is executed which 
simply pops the B set off" of the stack and OR's it with the 
A set. Control is returned to the main interpreter loop with 
the 6502 SP register pointing at the A set. 
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If the size of A is less than the size of B then a separate 
routine is called that OR's set A into set B, and then moves 
set B down over set A on the stack. If the size of B is zero, 
then A is simply returned. 

DBE5-DC54 ADJ (set adjust) p-code routine. A single UB-t>^e 
parameter is fetched from the code stream. This byte con- 
tains the final size (in words) that the set on TOS must occupy. 
If the size of the set on TOS is equal to this value, then the 
ADJ routine prompdy returns control to the main loop. If 
the size of the set on TOS is greater than this value, then 
the UB words on TOS are moved down over the extra words 
which are to be truncated. 
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This is accomplished by die code at locations $DBFF..$DC19. 
First, the Y-register is loaded with a pointer to the last (high 
order) byte of the set which is to be kept. Next, the X- 
register is loaded with a pointer to the high order byte of 
the current set. Finally, the UB bytes pointed at by Y are 
transferred down to the set pointed at by the X-register and 
control is returned to the main interpreter loop. 



327 



If the size of the set on TOS is greater than UB, then control 
is transferred to location $DC1C. Here, the size of the set 
on TOS is checked to see if it is zero. If it is, this fact is 
noted, the SP register is modified accordingly, and control 
is transferred to the zero fill loop at location $DC47. If the 
size of the set on TOS is not zero, then it is moved down- 
wards in memory in order to expand the size of the set. The 
area cleared out by this downward movement is zeroed out 
by the code at location $DC47. In either case, control is 
returned to the main interpreter loop at location $DC52. 

DC55 -DCB9 INN (set inclusion) p-code routine. This routine expects 
the following data on TOS: 




Figure 6-3 



where size A is the size of the set A which immediately 
follows on the stack and I is an integer. I is divided by eight 
(by shifting) and I mod eight (by AND'ing) is also kept 
around. The value I DIV "8" is used as an index into the 
set A and the "I mod eighth" bit of this byte is checked. If 
this bit is one, then TRUE is pushed onto die stack in place 
of size A, so that generated by the first string assignment in 
the code stream. 



328 



DCBA-DCCB SGS (build singleton set) p-code routine. This code 
copies TOS and falls dirough to the SRS routine below. 

DCCC-DDD3 SRS (build subrange set) p-code routine. Two words 
are popped off of the stack and stored into memor}^ loca- 
tions $7A,.$7D. Replace these two words with the set 

[(low range).. (high__range)]. First, check the low range 

and make sure it is not negative, give an execution error if it 
is. Next, make sure that the high range is less than 512. If 
not, cause a run- time error. If the high range is less than the 
low range, then push a null set onto the stack (which is ac- 
complished by pushing two zeroes). Then the set consisting 
of zero bits up to the "low rangeth" bit is pushed, then be- 
tween low range and high range one bits are pushed, and 
finally the size word is pushed onto the stack. The data from 
$DD92 to $DDD3 is a table containing the bit masks. 

DDD4 - DEIO Comparison lead-in routine. This p-code routine han- 
dles the EQUxxx, NEQdcx, LEQxxx, LESxxx, GEQxxx, and 
GTRxxx routines. The individual entry points load the 6502 
accumulator with a three bit value according to the test being 
made. The values in the accumulator are interpreted as: 

BIT = I: TEST FOR EQUALITY 
BIT = 0: TEST FOR INEQUALITY 

BITI = 1: TEST FOR LESS THAN 
BITI = 0: TEST FOR NOT LESS THAN 

BIT 2 = 1: TEST FOR GREATER THAN 
BIT 2 = 0: TEST FOR NOT GREATER THAN 

For example, the accumulator is loaded with one if the 

EQU»aiffiCraeiiBntseTecctted,f5TarlfTheGTRnxiri^ 

tion is to be executed, and three if testing for less than or 
equal. 

Once the accumulator is loaded with the appropriate value, 
control is transferred to location $DDEA where this com- 
parison flag is saved into zero page location $6C. At this 
point, the second b)i:e following the p-code is fetched. This 
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byte determines whether a Boolean, string, set, or array 
operation is to be performed. If this value is two, then two 
REAL values are compared, if it is four, then two string 
values are compared, if it is six then Boolean values are com- 
pared, if eight then two sets are compared, if ten then two 
word arrays are compared, otherwise two byte arrays are 
compared. 

DE12 — DE5F Byte and word comparisons. The compare byte entry 
point is at location $DE12, the compare word entry point 
is at $DE1E. Both call the GETBIG routine to fetch the 
one/two byte operand that follows in the code stream. The 
compare byte entry then divides locations $5E and $5F by 
two since the GETBIG routine multiplied them by two 
(thinking they were a word offset). Then the compare byte 
routine jumps into the compare word routine at location 

.*!;DE2^ Thp rr»rlp hf^xrffn lr«-atinnc ^FliPO^ ^t^A «r»T;Ct; 

pops two array pointers off of the stack and compares the 
arrays pointed at by these pointers. Upon determining that 
the arrays are equal or not equal, control is transferred to 
the code at location $DEC2 (if the arrays are equal), $DEC6 
(if the array pointed at by TOS - 1 is less than the array 
pointed at by the pointer on TOS), or $DEBE (if the array 
pointed at by TOS - 1 is greater than the array pointed at 
by TOS). 

DE64 - DEED String comparison routine. This routine compares two 
strings whose pointers are found on TOS. It is somewhat 
complicated by the fact that if the high order byte of the 
pointer is zero then the string consists of a single charaaer. 
If a single character is detected (for either pointer on the 
stack) then it is converted to a string by storing it into a zero 
page location and prefacing it with a length byte of one. The 
normal string pointer is set up to point at this zero page 
location. Locations $74 and $75 point at the first string 
(with locations $80 and $81 used for the single character 
string) and locations $76 and $77 point at the second string 
(with locations $7E and $7F used for a single character 
string). 
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Once the pointers to the strings are set up, the lengths of 
these strings are compared and the minimum string length 
is loaded into the X-register. Next the strings are compared 
until it is determined that they are not equal, or are equal 
through the length of the shortest string. If they are not 
equal, then control is passed to location $DEBE if string 
one is greater than string two, and to location $DEC6 if it 
is less than string two. If the two strings are equal through 
to the length of the shortest string, then the lengths are 
compared. If the lengths are equal, so are the strings. If the 
leneth of string one is greater than string two then control 
is passed to location $DEC6, if they are equal to location 
$DEC2, otherwise to location $DEBE. 

DEBE — DED9 Push Boolean routines. Location SDEBE is jumped to 
if the comparison routine determines that item one is greater 
than item two. This guy pushes TRUE onto the stack if a 
GTRxxx, GEQdcx, or NEQxxx opcode was being processed, 
false otherwise. 

Location $DEC2 is jumped to if the comparison routine 
determined that the two values being compared were equal. 
TRUE is pushed if the EQLxxx, GEC^cxx, or LEQxxx was 
being processed. 

Location $DEC6 is jumped to if the comparison routine 
determined that the first value being compared is less than 
the second value being compared. TRUE is pushed if the 
LESxxx, LEQxxx, or NEQxxx opcode was being processed. 
False is pushed otherwise. 

The code at location $DEC8.$BEDB is common to att 
these routines. It is responsible for pushing TRUE or FALSE 
and determining which opcode caused the current state of 
affairs. 

DEDC — DF15 REAL comparisons. This code pops two real values off 
of the stack and compares them. If the REAL value on 
TOS - 1 is less than the REAL value on TOS, then control 
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is transferred to location $DEC6. If TOS - 1 is greater than 
TOS then control is transferred to location $DEBE. If 
TOS - 1 is equal to TOS then control is transferred to loca- 
tion $DEC2. 

DF16 - DF2A Compare Boolean values. The word on TOS is popped, 
AND'ed with one, and compared to TOS - 1 after it is popped 
and AND'ed with one. If TOS - 1 is greater than TOS, 
control is transferred to location $DEBE; if they are equal, 
$DEC2; if TOS - 1 is less than, then a branch to location 
$DEC6 is made. 

DF2B - DF98 EQUI, NEQI, LESI, LEQI, GTRI, and GEQI routines. 

These routines compare the two words on TOS and push 
true if the respective comparison holds, false otherwise. All 
these comparisons except EQUI are handled in a fashion 
similar to the comparisons above in that a three-bit value is 
saved and a single comparison routine is jumped to in the 
interest of saving code. The EQUI routine is handled sep- 
arately, probably because it is called many more times than 
any other comparison. The entry points for these routines 
are: 

LESI: $DF2B 
GTRI: $DF2F 
LEQI: $DF33 
GEQI: $DF37 
NEQI: $DF3B 
EQUI: $DF65 

DF9B-DFD4 Set comparison setup routine. This subroutine com- 
putes certain pieces of useful data for use by the set com- 
parison routines. It returns the size of the set on TOS (set 
B) in locations $7C and $7D, the size of the set on TOS - 2 
(set A) in locations $7A and $7B, the address of set B in 
location $76 (only one byte is required since the set is always 
in page one), the address of set A in location $74, the dif- 
ference (size A - size B) in location $86, the minimum set 
size (i.e. min(sizeA,sizeB)) in location $7E, and the new SP 
value in location $80. 
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DFD5 - DFFl Check remainder of set to make sure it contains zeroes. 

If the sets are of unequal length then this routine is called 
to make sure that zeroes are present in the high order bytes 
of the set. If set B is being checked, the entry point is location 
$DFP5. If set A is being checked, the entry point is location 
$DFDE. The X register contains the first byte on the stack 
to check for a zero. 

DFF2 — E026 Set compar^on routine. This subroutine is called to com- 
pare the sets on TOS. If they are equal, the carry is returned 

SPf Tf thpv ar<» nnt pnnai the rcirr\r ic rptiim^rl rip-irpA 
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E027-E03A Set compare jump table. It was determined that a set 
comparison is to be made. This short segment of code checks 
for SETEQL, SETNEQ, SETLEQ, or SETGEQ. 

E03D-E042 Set equal routine. This routine calls the set comparison 
routine, and then jumps to the code that pushes true if the 
carry is set, false if the carry is clear. 

E043 — E04E Set not equal routine. This code calls the set compare rou- 
tine, complements the carry, and then jumps to the code to 
push TRUE or FALSE depending on the contents of the 
carry flag. 

E04F — E069 Set less than or equal routine. This routine checks to see 
if A is a subset of B. If so, TRUE is pushed, otherwise 
FALSE is pushed. 

E06A - E08A Set greater than or equal. This routine checks to see if B 
is a subset of A. TRUE is pushed if it is, FALSE is pushed 
otharwise. E08B - E09E Set coiHpareTsdt point. AH set rou- 
tines exit to this code. The normal entry point is $E08C. If 
the carry is clear, FALSE is pushed. If the carry is set, TRUE 
is pushed. 

EOAl - EOBB CXP (call external procedure) p-code utility subroutine. 

This code fetches the segment number from the segment 
table at address $BD9E and stores it into the 'nextseg' reg- 
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ister at addresses $82 and $83. It then jumps to some com- 
mon procedure code (shared with the Normal procedure 
call subroutine) at address $E0D2. 

EOBC - EODl Normal procedure call utility subroutine. This routine 
copies the current contents of the segment register into the 
'nextseg' memory location. It also stores $FF into the seg- 
ment number variable at address $86. This is used by the 
common code to differentiate between an external proce- 
dure and a normal procedure call. 

E0D2 - E252 Common procedure code for the CXP and Normal pro- 
cedure call subroutines. This code pushes retum addresses, 
parameters, loads in segment procedures, etc. whenever a 
procedure or function is invoked. 

E02D — ElOA Sets up a pointer to the procedure attribute table in loca- 
tions $7C and $7D. 

ElOB - E14B Check for an assembly language subroutine and call it if 
this is a 6502 machine code routine. Assembly language 
routines are denoted by the fact that the procedure number 
(pointed at by $7C and $7D) is zero. If this is an external 
procedure, then decrement the value at location 
($BD1E + segnum*2). This value is used to determine if the 
code is to be left in memory. If this is an assembly routine, 
a retum address is pushed onto the stack, the address of the 
assembly routine is stored into locations $90 and $91. Finally, 
a jump indirect through locations $90/$91 transfers control 
to the assembly routine. 

E14E — E252 Handle a p-code subroutine invocation. 

E159-E1AA Set up pseudo registers and check for stack overflow. 

Jump to $EIAB if a stack overflow occurs. 

ElBO — E1B9 Push activation record onto program stack. 
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ElBA— EIDD Pop "parmsize" parameters off of the 6502 hardware 
stack and copy them onto the program stack. Then push 
the current value of the 6502 hardware stack pointer onto 
the program stack. 

EIDE — EIFA The address of the p-code subroutine is computed and 
stored into the IPC register here. Addresses in the Apple 
Pascal p-machine are always self-relative. So the address con- 
tained in the procedure location entry in the procedure table 
is subtracted from the address of the table entry. This dif- 
ference is the absolute address of the p-code routine to be 
executed. 

EIFB — E250 Completion of p-code subroutine set up. This code ini- 
tializes the JTAB register, the jump table, the MP register, 
the program stack pointer (to set up for any local variables), 
and copies the 'nextseg' value into the segment register. 
Control is then returned to the calling 6502 program by 
incrementing the return address (which was saved in loca- 
tions $8E and $8F) and returning via a jump indirect 
instruction. 

E253-E2A0 CIP (call intermediate) p-code routine (with special 
entry point at $E25C for CXP calls). First the pro- 
cedure call subroutine is called to set up the stack, then this 
code looks into the procedure table to get at the dynamic 
links and it traverses the stack looking for the proper lex 
level to operate at. Once the dynamic links are properly set 
up, control is returned to the main procedure at which point 
the p-code subroutine begins execution. 

E2A1 - E2BC CLP (call local procedure) p-code routine. This code 
Etches He pfocedure^h^^ 

the procedure invocation subroutine, patches the stack, and 
then returns control to the main interpreter loop for the 
execution of the p-code subroutine. 

E2BD-E2D3 CGP (call global procedure) p-code routine. Identical 
to the CLP routine, except the BASE register is pushed onto 
the stack in place of the normal dynamic link. 
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E2D4 - E2F8 CXP (call external procedure) p-code routine. The CXP 

p-code routine fetches two parameters from the code stream. 
The first is the procedure number, the second is the segment 
number. If the segment number is not zero (a special case) 
then a subroutine is called to load the code from the disk 
onto the program stack (LOADSEG). Then the special entry 
point at $E0A1 is called to set up the system for the pro- 
cedure call. Finally, the lex level is checked to see if it is less 
than or equal to zero. If it is, then this is a base external 
procedure and control is transferred to location $E302, 
otherwise this is an external intermediate procedure and 
control is transferred to location $E25C. 

E2F9 - E329 CBP (call base procedure) p-code routine (special entry 
point at address $E302 for call external base procedure). 

This code fetches the procedure number and calls the pro- 
cedure set-up routine (just like all the other calls) and then 
it pushes a copy of the BASE register on to the 6502 hard- 
ware stack. Then it patches all the links in the activation 
record so that the static and dynamic links point at the proper 
place. Finally, the stack pointer is copied into the BASE 
register and control is returned to the main interpreter loop. 

E32A - E33E RBP (return from base procedure) p-code routine entry 
point. Get the pointer to the stack frame (6502 hardware) 
and load the 6502 SP register with this value. Next, pop the 
BASE value off of the stack and load this into the BASE 
register and the temporary BASE register Then a jump to 
common code at location $E345 is made. 

E33F-E344 RNP (return from normal procediu-e) p-code routine. 

This code reloads the 6502 stack pointer with the proper 
value and falls through to the common return code at $E445. 

E445 - E3C5 Return from p-code procedure common code. This code 
is common to the RNP and RBP p-codes. First, the old 
value of the program stack pointer (KP) register is fetched 
off of the stack. Then the code from $E53D to $E371 fetches 
any function return value from the program stack and pushes 
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it onto the evaluation stack. Finally, the code from location 
$E371 to $E3C5 reloads the SEGMENT, JTAB, IPC, xMP, 
and other registers with their original values. 

E3C6 — E3D6 This code computes an address by subtracting the data in 
location $90 and $91 from the word pointed at by these 
two locations. The address computed is stored into the pro- 
cedure location variable at addresses $7C and $7D. 



E3D7— E416 Relocation subroutine. The value contained in the loca- 
tion pointed at by the procedure pointer ($7C) is fetched. 
This is the number of items to be relocated. Next, two is 
subtracted from the procedure pointer and this data is used 
as a self relative pointer to the relocation table. For each item 
to be relocated, the data pointed at by the self-relative pointer 
at location $7C (procedure pointer) is relocated by adding 
the relocation value (in locations $88 and $89) to the value 
already there. This process is repeated until the table entries 
are exhausted. Every assembly language program loaded into 
the system is relocated by this routine at run-time. 

E417 — E4A4 Read segment routine. This code reads in the external 
segment whose segment number is passed in the 6502 accu- 
mulator register. The segment directory is checked to find 
the drive and block numbers for this routine. First the unit 
is checked to make sure it is on line. If so, then the BIOS 
DISKREAD routine is called to read the code in from the 
disk. 

E4A5 — E5F6 Load segment subroutine. This subroutine is called (if 
necessary) to load in a segment procedure. The segment 
number is passed in the 6502 accumulator. To begin with, 
an ertemal procedare cotinrer is chtctediro see if it is mm: 
If it is zero, then the segment procedure must be loaded 
from the disk. If it is not zero, then this is a (possibly indi- 
rect) recursive procedure call and the procedure is already 
in memory. If the segment procedure count is not zero, then 
it is incremented bv one and the subroutine returns. The 
segment procedure count array is at location $BD1E. 



337 



The code from $E4BE to $E4DE checks to see if a p-code 
segment or a data segment is to be loaded from the disk. 
The code at locations $E4DF through $E4FD load the data 
segment, and the code from $E4FE to $E5F6 loads a code 
segment. 

E5F7 - E61B Unload a segment subroutine. This code de-allocates the 
space used by a segment procedure. Then the procedure 
counter is checked to make sure it is zero. If it is not, then 
some recursive invocation of this routine is outstanding and 
the code cannot be removed from memory. Otherwise 
(assuming the segment procedure counter is zero) the stack 
is fixed up to de-allocate the space occupied by the external 
procedure. 

E61C-E625 LDS (load segment) p-code routine. This guy pops the 
segment number off of the stack, gets it into the 6502 accu- 
multor, and then calls the load segment subroutine. Upon 
return from load segment, control is returned to the main 
interpreter loop. 

E626 - E62F ULS (unload segment) p-code routine. This routine pops 
the segment number off of the stack, calls the unload seg- 
ment subroutine, and then returns control to the main inter- 
preter loop. 

E630 - E639 CSP (call special procedure) p-code driver routine. This 
code fetches the next byte in the code stream (the special 
routine opcode) multiplies it by two, and uses this as an 
index into the CSP table. This code is identical to the main 
interpreter loop except the indirect jump is at locations 
$71. .$73. 

E63A-E63F IDS (ID search) special driver routine. This code is a 
simple jump instruction to the actual IDS code at location 
$FF3F 
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E640 — E6B1 TRS (tree search) p-code routine. This code searches 
through a binary tree for an eight byte token. It is used by 
the compiler and other system routines for symbol table 
lookups and other general look-up schema. This fiinction 
pops three words off of the TOS. The first word popped is a 
pointer to an eight b)te target token. This is the character 
string TRS searches for in the tree. The second word popped 
is a pointer to a pointer variable. On return, the pointer is 
loaded with the address of the last node visted if a match 
was not found (this is required so that the right and left links 

The third word popped off of the stack is a pointer to the 
root node of the tree structure. The tree always has the 
following structure: 
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Figure 6-4 
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E6B2-E6F6 FLC (fill character) p-code routine. The fill character 
routine expects the following data on the 6502 hardware 
stack: 



SP 



Character 



tkinber of 

Chars to 

fill 



Index into 
Array 



Point«r to 

Array Base 

Elenent 



Figure 6-5 



The character to be copied is popped off of the stack. Then 
the number of bytes to be filled is popped. If this number is 
negative, fill char immediately terminates (and removes the 
other parameters from the stack. If the number of bytes to 
be filled is positive, then the index and array base pointer 
are popped and added. Next, the X-register is loaded with 
the number of pages to be fiUed with die character and the 
program enters a loop that fills 'X' pages with the character. 
Finally, when the page count is zero, the remaining bytes 
are filled by loading the X-register with the low order byte 
of the count value and entering a second loop that fills less 
than 256 bytes. 

E6F7— E783 SCN (scan) p-code routine. The address and index of the 
source array are popped and added, the character is fetched, 
a Boolean flag (0 = " = ", 1 = "<>") is popped, and the num- 
ber of characters to check is popped. Next, the absolute value 
of the number of characters to search through is taken and 
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this number is stored in locations $5E and $5F. Finally, the 
array is searched (for the specified number of characters) for 
the character specified. If it is found, the position in the array 
is returned. Otherwise, the original value is returned on the 
stack. 

E784 - E82A EXIT (procedure EXIT) p-code routine. This p-code is 
executed whenever the Pascal EXIT statement is executed. 
It pops a procedure and segment number off of the stack. If 
this causes an exit fi-om the operating system, then a jump 
to the Xrr p-code routine is made. Otherwise for each iex 
level you are exiting, this code computes pointers to the 
activation record for each statically nested procedure and 
readjusts the stack to remove the activation record for the 
procedure(s) being exited. 

E82B — E832 BPT (break point) p-code routine. This code gets a big 
parameter from the code stream and then returns to the main 
interpreter loop (i.e., it is a NOP). 

E833 - E840 HLT (HALT) p-code routine. This code increments the 
program counter by two and jumps to the user-invoked exe- 
cution error entry point. 

E841 — E85C TIME p-code routine. Two pointers are passed on the 
6502 hardware stack. TIME stores zeroes into the words 
pointed at by these pointers. 

E85D-E89F MVR (move right) p-code routine. This routine per- 
forms a block move of bytes using decrementing pointers. 
This routine is jmnpcd to from kx:ation$E^Dfi whenever 
the MOVERIGHT Pascal statement is executed. 

E8A0 — E8DE Block move routine. This code is common to the MVR 
and MVL routines. It pops the required parameters off of 
the stack and stores them into zero page locations and then 
decodes the second opcode byte to determine whether a 
moveleft or moveright should be performed. 
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E8DD - E903 MVL (move left) p-code routine. This code performs a 
block move using incrementing pointers. The block move 
routine above drops through to this routine if it is deter- 
mined that a moveleft is to be performed. 

E904 - E928 MEMAVAIL p-code routine. If diere is a valid directory 
pointer (at location $BDE6/$BDE7) then push the value 
MP-DIRP ($5C/D-$BDE6/7) Otherwise push the value 
MP-NP ($5C/D-$5A/B). 

E929 - E956 Floating point pop routine. This utility subroutine pops 
a floating point number off of the stack and unpacks it. The 
X-register points at one of three floating point accumulators. 
The floating point work area is: 

$74..$79: FP work area #1 
$7A..$7F: FP work area #2 
$80..$85: FP work area #3 

Within each work area the first bjte is reserved for the sign 
(bit 7 is zero for positive numbers, one for negative num- 
bers), the second byte holds the exponent in bias 128 form, 
and the last four bytes in each work area form the exponent. 
All floating point calculations are carried out in this special 
"unpacked" form. When data is stored into memory, it is 
converted to a more compact "packed" form. The format of 
a packed floating point data element is: 

Byte Bits Description 






31..24 


Sign (bit 7) and H.O. bits of 


1 


23.. 16 


exponent. 

L.O. bit of exponent, and H.O. 

bits of mantissa 


2 


15..8 


Middle bits of mantissa. 


3 


7..0 


L.O. bits of mantissa. 
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Since the packed floating point numbers are always normal- 
ized the H.O. bit of the mantissa is always one. Since this 
bit is always one (unless the value is zero) this bit is not kept 
around. It is used to hold the leftover bit of the exponent 
in the packed form. When the data is unpacked, the unpack- 
ing routine sets the H.O. bit of the mantissa. 

The floating point pop routine pops a packed floating point 
value off of the evaluation stack, unpacks it, and stores the 
unpacked data into the floating point work area pointed at 
by the X-register. 

E957 — E979 Floating point push routine. This routine performs the 
opposite function of the pop routine. It takes the floating 
point work area pointed at by the X-register, packs it, and 
pushes the packed result onto the evaluation stack. 

E97A - E999 Bump exponent routine. This routine is called within the 
REAL addition and multiplication routines. If the carry is 
set; ttenthcTiarnbcr is shifted to the right ai^ 
is bumped up by one. 

E99A - E9B9 FP Normalize routine. After any floating point operation 
the floating point value must be normalized. This is accom- 
plished by shifting the mantissa to the left until a one appears 
in the H.O. bit. Each time the mantissa is shifted the expo- 
nent is decremented by one. 
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E9BA — E9D7 Round routine. This code roiinds die floating point value 
in die diird floating point work area. If a number lies exacdy 
between two representable values, then it is rounded to the 
value with the least significant bit of zero. 

E9D8 - EA12 FP Adjust routine. When adding or subtracting two float- 
ing point values the exponents must be the same. This rou- 
tine scales the values in floating point work areas one and 
two so that they have the same exponent. This is accom- 
plished by shifidng the smaller value to the right and incre- 
menting its exponent. 

EA13 — EA38 FP addition subroutine. This routine aligns the values in 
FP work areas one and two, adds the mantissas, normalizes 
the result, rounds the result, and finally re-normalizes the 
result. 

EA39 — EA71 FP Subtraction subroutine. This routine aligns, sub- 
tracts, normalizes, and rounds two floating point numbers. 

EA72 - EA9D FP compare and swap routine. Compares the absolute 
values of the floating point numbers in the FP work area 
one (FPWA #1) and FP work area two (FPWA #2). If 
FPWA #1 is greater than FPWA #2, they are swapped and 
the carry is cleared. Otherwise the carry is returned set. 

EAC2-EB08 ADR (add REAL) p-code routine. Pops two floating 
point numbers off of the stack and adds them. If the signs 
are different, then the floating point subtraction routine is 
called instead. 

EB09 - EB59 SBR (subtract REAL) p-code routine. Two floating point 
numbers are popped off" of the stack and the FP subtract 
routine is called. If the signs are different then the FP add 
routine is called instead. 

EB5A - EBE5 DVR (Divide REAL) p-code routine. This routine pops 
two floating point values off of the stack and stores them in 
the FP work area. Then it checks the first value popped off" 
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to see if it is zero. If it is, then a division by zero execution 
error is forced. If the first number was zero then zero is 
pushed onto the evaluation stack and DVR returns to the 
main interpreter loop. If neither number was zero the two 
exponents are subtracted to determine the exponent of the 
result. If an underflow occurs, a floating point error is forced, 
otherwise the FPWA#2 is divided by the FPWA #1 and 
the result is returned on the evaluation stack. 



EBE6 — EC54 FP multiplication subroutine. This routine multiplies 
FPWA#1 
FPWA#3. 






EC55 - EC7C MPR (multiply REALs) p-code routine. This code pops 
two floating point values off" of the stack, calls the FP mul- 
tiplication subroutine, and then pushes FPWA#3 onto the 
evaluation stack. 

EC7D - ECB 1 SQR (square REALs) p-code routine. This code checks 
the REAL number on TOS to see if it is zero. If it is, then 
zero is returned. Otherwise the data on TOS is duplicated 
in FPWA#I and FPWA#2, the FP multiply routine is called, 
and FPWA#3 is pushed onto the evaluation stack. 

ECB2-ECBF ABR (absolute value of a REAL number) p-code rou- 
tine. This routine clears the H.O. bit of the exponent byte 
by shifting it to the left and then shifting it to the right. 

ECCO-ECDF NGR (Negate REAL) p-code routine. This routine 
inverts the sign bit in the exponent byte. 

ECEO— ED3E Float int^er valnc. xAn integer ^'aiuc is on TOS. This 
routine pops it and converts it to a floating point value. The 
resultant floating point value is left in FPWA#3. 

ED3F-ED61 FLO (float integer) p-code routine. This routine floats 
the integer value on TOS - 1. It accomplishes this by pop- 
ping four bytes off" of the TOS (there is always a real on 
TOS) and saving it in FPWA#1. Then a call to die float 



345 



routine is made to float the integer left on TOS. Finally, the 
floating point value saved in FPWA#1 is pushed back onto 
the stack and this routine returns control to the main inter- 
preter loop. 

ED62-ED6C FLT (float TOS) p-code routine. This routine simply 
calls the float routine and pushes the floating point value left 
in FPWA#3. 

ED6D - EDBA Truncation/round routine. If location $86 contains zero, 
then the floating point number in FPWA#1 is truncated, 
otherwise it is rounded. 

EDBB - EDCF RND (round REAL) p-code routine. The floating point 
number on TOS is converted to an integer and the result is 
pushed. 

EDD0-EDE4 TNG (truncate REAL) p-code routine. The floating 
point number on TOS is converted to an integer by trun- 
cation and the integer result is pushed. 

EDE5 - EEOD POT (power of ten) p-code routine. TOS contains an 
integer. If it is greater than 38, zero (four bytes) is pushed 
onto the stack. Otherwise this value is used as an index into 
a table containing the floating point representations for the 
various powers often. The appropriate value is pushed. 

EEOE-EECC Power often table. This table is an array [0.38] of REAL 
used by the POT p-code routine. 

EECD - EEF8 Unit on-line check subroutine. This routine is passed a 
unit number in the 6502 accumulator and X-register. The 
unit specified is checked to make sure that it is valid and on- 
line. First, the value is checked to see if the H.O. bit is set. 
If it is not, then the unit number is checked to make sure it 
is in the range 1 .. 12. If it is, this routine immediately returns 
to the calling procedure. Otherwise a run-time error (bad 
vmit number) is forced. 
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If a user-defined unit number is specified (user-defined unit 
numbers are always in the range $80..$8F) tiien the unit 
table at address $FE82 is checked to see if the desired user- 
defined unit has been attached to the system. If so, this sub- 
routine simply returns. If the unit is not in the system (denoted 
by a zero entry in the unit table) then a run-time error is 
forced by jumping to location $EEEF. 

EEF9 - EF03 lOR (lORESULT) p-code routine. This p-code function 
pushes the value of lORESULT onto the stack. The lORE- 

.STTT .T Vijinp ic mnt^in/^H in m^morTr \r\n'yi-\r>inc Cli T^T^"P ^ryA 

$BDDE 

EF04-EF0E IOC (lOCHECK) p-code routine. This routine checks 
lORESULT. If it is not zero a run-time error is caused. 

EFOF - EFIC UBUSY (unitbusy) p-code routine. Since all I/O on the 

Apple II is synchronous, this routine does very little. It does 
check to make sure the specified unit is on-line and then 
pushes false onto the evaluation stack (since the unit will 
never be busy). 

EFID - EF26 UWAIT (unit wait) p-code routine. Since aU I/O is syn- 
chronous, this routine does nothing more than pop the unit 
number off of the stack, make sure the unit is on-line, and 
return control to the main interpreter loop. 

EF27 - EFA4 USTATUS (unit status) p-code routine. This code begins 
by popping unnecessary data off of the stack, massaging the 
stack so that it is in the format expected by the BIOS STA- 
TUS routines, and then transfers control to the appropriate 
ftiOS" subruutine: ' " "■ 

EFA5 - F035 UCLEAR (unit clear) p-code routine. This code initial- 
izes the device specified by the word on TOS. The code at 
location $EFB4 handles user defined devices. The code 
between $EFBD and $EFC4 converts unit number seven 
to imit number eight (REMIN: is converted to REMOUT: ) 
and the code at location $EFC5 determines whether a char- 
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acter oriented device or a block structured device is being 
accessed. Block structured devices are initialized by the code 
at $EFD0..$EFE1. The console is handled by the code at 
locations $EFEA..$F005. The printer initialization is han- 
dled by the code at addresses $F006..$F013. The remote 
units are initialized by the code at addresses $F014..$F01D. 
And the graphics unit is initialized by the code at address 
$F01E. 

F036— F068 Disk I/O subroutine. This code handles block structured 
I/O requests. 

F069 - F06D UREAD (unit read) input entry point. This code loads 
the accumulator with zero and jumps to the unit I/O code 
at address $F070. 

F06E — F06F UWRITE (unit write) . This routine loads the accumulator 
with one and drops through to the unit I/O code at address 
$F070. 

F070 -F210 UNIT I/O. This code handles the unitread and unitwrite 
functions of the Pascal operating system. This code modifies 
the parameters on the stack and dispatches the I/O request 
to the appropriate BIOS subroutine. 

F213-FFFF Pascal O/S, BIOS hooks, and boot-time transient area. 

During the boot of the Pascal system this area contains the 
initialization code. Once initialization is complete, the 
Pascal reserved word table, ID search routine, and other 
various routines are loaded into this area. 

DOOO-DFFF (second BANK). BIOS, IDS p-code routine and reserved 
word table. 

This short description of the Apple Pascal p-code interpreter is far from 
perfect, nor is it quite complete. No attempt to describe the BIOS routines 
was made since these routines are the most likely to change in the event 
changes are made to the system. For more information on the BIOS, consult 
the chapter on the ATTACH-BIOS code. 
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Section Three 
Modifying Apple Pascal 



7 

Modifying tiie Apple Pascal 
P-code Interpreter 



The Apple Pascal P-code interpreter is written in 6502 machine code to 
insure that programs run fairly fast. As it turns out, the students who orig- 
inally wrote the 6502 p-code interpreter were fairly inexperienced on the 
6502 microprocessor chip. As a result of this inexperience, the p-code inter- 
preter is not as optimal as it could be. If the 6502 interpreter were com- 
pletely rewritten using better coding techniques an overall increase of 15- 
20% could be realized. That's almost as good as the 6809! While rewriting 
the Apple Pascal p-code interpreter you can also modify the interpreter to 
take advantage of special hardware like a clock/calendar board or possibly 
even a hardware floating point board like the CCS 9511 Arithmetic pro- 
cessor card, the DTACK Grounded 68000 board, or Lazer's 16032 board. 
While I cannot present a completely rewritten 6502 interpreter here, several 
examples will be presented (which actually work) that can be used as a 
template for rewriting additional portions of the interpreter. 

There are several ways to rewrite the Apple Pascal p-code interpreter, you 
can patch the interpreter on the disk so that the modifications are loaded 
into memory every time the master disk is booted; you can patch the inter- 
preter in memory by running a program that overlays the interpreter; or 
you can use a feature found in Apple Pascal 1 . 1 to attach drivers to the Pascal 
BIOS. I've used the latter method because it's the easiest to implement. The 
code I've written allows the use of the CCS Arithmetic card and the Moim- 
tain Computer Apple Clock in the Pascal system to provide additional fea- 
tures and performance improvement. 
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The program begins with four equates to define the status of the optional 
hardware. HASAPU should be equated to one if you have a CCS Arithmetic 
card in your system, it should be set to zero if you don't have such a device. 
APUSLOT defines the slot number where the CCS Arithmetic card can be 
found. This label should be equated to address $C080 + $nO where "n" is 
the slot number of the APU. The next two equates, HASCLK and CLKSLOT, 
define the presence and slot number of the Mountain Computer Apple 
Clock. If you do not have a clock in your system you should set HASCLK 
to zero. One final note on the Apple Clock code: it only works with the 
Mountain Computer Apple Clock, it does not work with Mountain's CPS 
card or anybody else's clock card for that matter. 

Following the special hardware equates come the p-machine register equates. 
The Apple Pascal p-machine's registers are emulated in zero page RAM at 
these locations. This locations will be used extensively by the interpreter 
patch code. Twelve temporary locations are also used by this code, they 
immediately follow the p-machine register equates. 

Several locations within the interpreter itself are also of great importance. 
At location $D000 (in bank zero of die language card) the interpreter jump 
table can be found. This table consists of 128 addresses that point to routines 
for each of the 128 p-codes (excluding the SLDC p-codes). The easiest way 
to patch the interpreter is to simply overlay the address in the interpreter 
address table with a new address pointing at your replacement routine. The 
JMPTBL equate in the program listing provides die base address of the 
interpreter table so that certain addresses can be easily patched with the 
address of the replacement routine. 

Once a p-routine has executed the necessary code to emulate its respective 
p-code, control is returned to the main interpreter loop by jumping to 
location $D23B or location $D24D. The code at location $D23B incre- 
ments the IPC (interpreter program counter) by two and then fetches the 
next p-code from the opcode stream. The code at location $D24D incre- 
ments the IPC by one and falls through to the opcode fetch section. There's 
also an entry point which increments the IPC by three and falls through, 
but it is not required by this code. 

EXECERR and RANGERR are entry points into the interpreter which 
this code jumps to if an execution error or a range error occurs during the 
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execution of the p-code. In particular, the RANGERR entry point is branched 
to if the CHK p-code detects data which is out of range. HNDLJTAB is 
an entry point into the middle of the interpreter which is taken in certain 
cases depending on the target address of a branch instruction. GBPARM 
is a subroutine which is called to fetch a variable-length address operand 
from the code stream. 

Immediately following the equates is the initialization entry point for the 
interpreter patch routine. This code follows the "ATTACH-BIOS" speci- 
fications found in the manual distributed by the International Apple Core 
and reorinted in the appendix. This manual is also available from your local 
Apple club (assuming'it is a member of the lAC), the Call - A.P.P.L.E club, 
or direcdy from the lAC. For additional info on die AITACH-BIOS rou- 
tines you should consult this manual or the appropriate chapter in p-Source. 

The entry point for the initialization code checks the X-register to make 
sure it contains three. If the X-register contains a value other than three 
then the programmer/user is attempting to do some sort of I/O to this 
"device". Since these BIOS patches are not an I/O device driver, an lORE- 
SULT of nine (unit off-line) is returned to the user. If the x-register contains 
three then the p-system is performing an initializadon call. Since this "device" 
is usually initialized at boot-time, the initialization entry condition is perfect 
for patching the p-code interpreter. 

In order to patch the interpreter the RAM card must be write-enabled. This 
is accomplished by writing to location $C089 twice in succession. Once the 
RAM card is write-enabled the data from ADRSTBL is used to patch the 
interpreter address table. Each entry in the table contains four bytes. The 
first two bytes contain the address of the p-routine jump address in the 
interpreter jump table. The next two bytes contain the new jump address 
that points to a replacement routine. The jump table is terminated with a 
*pair of- zero bytes. 

The first two routines I've enhanced are the p-machine ABI and NGI (inte- 
ger absolute value and negate p-code) instructions. The original Apple Pas- 
cal code is shown in comments to give you an idea of how much improve- 
ment can be made to the p-code interpreter's code. The original authors of 
the 6502 p-code interpreter used the textbook method for taking the two's 
complement of a number: invert all the bits and add one. On the 6502, 
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taking the two's complement of a sixteen bit value using this method is very 
inefficient. It's much quicker to simply subtract the value you wish to negate 
from zero (See "Signed Arithmetic on the 6502" in the May, 1983, issue 
of MICRO or "Using 6502 Assembly Language"). By reorganizing the 
code it was also possible to save a considerable amount of space by com- 
bining the ABI and NGI p-routines. 

The next p-code routine I've included is a replacement for the ADI (add 
integers) opcode. The original Apple Pascal code (included in the com- 
ments) performs a lot of unecessary operations to add two integers. Not 
only does the new routine require less space but it also executes quite a bit 
faster. Like the ABI and NGI p-codes, ADI jumps to INCIPC to return 
control to the Apple Pascal p-code interpreter. 

The code for the subtract p-code, SBI, is a litde different than that for the 
ADI p-code. Unlike addition, which is commutative, the SBI routine must 
subtract the item on TOS-1 from the item on TOS. Therefore die code for 
SBI must be a litde bigger, slower, and more complex than the ADI p-code 
routine. 

The logical OR and logical AND instructions (LAND and LOR) p-rou- 
tines follow. They are essentially identical to die ADI routine except, of 
course, the logical operation is performed instead of an addition. 

The CHK p-code is emitted whenever you access an array element, use a 
value witii range limitations, or perform any string operations. Essentially 
It performs two signed comparisons and causes an execution error if a value 
is out of range. The autiiors of the 6502 p-code interpreter used a ratiier 
bizzare metiiod to compare signed values on die 6502. I've substituted a 
standard signed comparison routine which speeds up the operation of the 
CHK p-code. Speeding up the CHK p-code is important because it is 
frequentiy executed. The signed comparison comes straight out of "Using 
6502 Assembly Language" (also see die May, 1983, issue of MICRO). 

The Apple Pascal p-code interpreter uses a set of common subroutines for 
die p-codes GTRI, LEQI, GEQI, LESI, and NEQI. Combined widi dieir 
non-standard method of comparing two's complement numbers these rou- 
tines are very slow. The code in die program listing from address 
$012A..$0IFC is a set of replacement routines for these integer compari- 
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sons. These routines were sped up by using individual routines for each 
comparison (instead of passing parameters to and from a common subrou- 
tine) and using the improved signed comparison routines. Unlike the other 
routines in this package which are shorter as well as faster, these routines 
are much longer than the equivalent routines in the p-code interpreter since 
the Apple Pascal p-routines use a common subroutine for most of the 
comparisons. 

The next two routines in the interpreter patch package (MPI and DVI) 
require a CCS Arithmetic Processor card for proper operation. These rou- 
tines replace the integer multiply and divide routines in the p-code inter- 
preter with the hardware functions provided by the CCS card. Most readers 
will ask why I didn't include routines for the floating point operations as 
well as the integer operations. As it turns out, the Apple Pascal floating 
point format is a bit different from the AMD9511 format so a conversion 
routine is necessary. When I first wrote these routines I included a format 
conversion subroutine. Unfortunately, the dynamic range of the 9511 chip 
is limited to - lOE - 19 to + 10E19 while the Apple Pascal system regularly 
uses values in the range - 10E28 to + 10E28 (especially during floating 
point I/O conversion) so the range limitation can cause some real problems. 
One last fix I tried was to call the software routines if there was a range 
problem and use the 9511 if the calculations fell within the precision of the 
95 1 1 . The extra calculations required more time than the 95 1 1 saved. There- 
fore I didn't include floating point routines in the p-code interpreter patch 
program listing. 

The last routine included in the p-code interpreter patch program is the 
TIME routine. UCSD Pascal includes a special built-in TIME function that 
returns the current time in 60ths of a second. The TIME routine reads the 
Mountain Computer Apple Clock, converts the time value to 60ths of a 
secomi^ afKt-retwTW the timcto lire Pascal^^s By setting the^fiAS- 

CLOCK" Boolean variable to true in the SETUP program you will be able 
to write programs that can read the clock and take different actions depend- 
ing upon the current time. Furthermore, with the TIME routine included 
in the interpreter the Apple Pascal compiler will report how slow it is run- 
ning (usually around 330 lines/minute). Since there is no TIME routine 
provided in the current interpreter, comparing my version to Apple's is 
impossible. 
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In order to actually patch the interpreter using this routine you must as- 
semble the program using the UCSD 6502 assembler (without using 
the ".ABSOLUTE" option) and change the codefile's name to 
"ATTACH.DRIVERS". Next you must put a copy of the "SYS- 
TEM.ATTACH" program (provided by the LAC and available from your 
local Apple club or directly from the LAC) on the disk. Finally, you must 
create an "ATTACH.DATA" file using the program "ATTACHUD.CODE" 
(also provided by the LAC). Follow the directions supplied in the docu- 
mentation for these programs (or see the chapter on the Apple Pascal BIOS 
in P-SOURCE) to create the "ATTACH.DATA" file. When it asks you what 
device number you want to attach your driver to you should respond "140" 
(unless you have attached some other user-defined device to this device 
number). When the ATTACHUD.CODE program asks you if you want 
the driver to be initialized at boot time you should answer "YES". This 
boot-time initialization performs the patch to the interpreter for you. 

While onlv a few of the D-code routines were ODtimized here, most of the 
p-routines in the p-code interpreter can be improved somewhat. In partic- 
ular the load and store operations should be optimized as much as possible 
since they're executed considerably more often than any other single opcode. 
Such experimentation will be left to the reader. 
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Listing 7-1 



PAGB 



1 INTERP FILEiDW.l.lEXr 



IffiSAHJ 
APOSLOT 
HASCLK 
CLKSLOT 



00001 

Current inesnory available: 8644 

00001 

00001 

00001 

00001 

00001 

00001 

00001 

00001 

GOOGi 

00001 

00001 0001 

00001 COFO 

00001 0001 

00001 CODO 

00001 

00001 

00001 

00001 

00001 (X)50 

00001 0052 

00001 0054 

00001 0056 

(XJOOI 0058 

00001 005A 

00001 005C 

00001 005E 

00001 

00001 0088 

00001 008A 

00001 006C 

00001 

00001 

00001 

00001 

0000 1- 0000 

00001 0002 

00001 0004 

00001 0006 

0000 i 0008 

00001 OOOA 

00001 

00001 

00001 
-00004 

00001 0100 

00001 DOOO 

0000 i D23B 

00001 D24D 

00001 DIFB 

0000 i D1B7 

00001 D279 
WWOI D155 
00001 



.FHX INTERP 



Apple Pascal interpreter Patches. 

(c) Cojyright 1982, Lazer MicroSystans, Inc. 
All ri^ts re^rved. 

Conceived and writtai by Kandall Hy<te. 



r«=4-«.. Q/ii;/eo 




aAC^OWWO^ 4C\44w 



.BQU 
.BQU 
.BQU 



1 

OCOFO 
1 
OCODO 



Interpreter variables 



BASE 

MP 

JTRB 

SBG 

IPC 

NP 

KP 

B1GFRM1 

MULTOPl 
MDLTDP2 
MULTOP3 



.EQO 


50 


.Bff] 


52 


.BQU 


54 


.BQU 


56 


.BQU 


58 


.BQU 


5A 


.BQU 


5C 


• BQU 


5E 


.BQU 


88 


.BQU 


8A 


.BSJ 


8C 



•Zero if no OCS card installed. 
;Slot # of CCS AHJ card 
;Zero if no Mountain Clock card. 
.-SLOT # of Mountain Qock card. 



p-code BASE register 
Mark stack pointer 
Jtnp table pointer 
Segnent register 
p-code pcogrsm counter 
Heap pointer 
Program stack pointer 
Value returned by (EEMtM 

;Operands used by multiply. 



Tenporary locations used by this code. 



PIK 

opdcra; 

TEMPI 
TEKP2 
TEMP3 
TEMP4 



Interpreter locations. 



.BQU 





.BffJ 


2 


.BQU 


4 


.BQU 


6 


.tuu 


8 


.BQU 


DA 



f 

STACK 

JKPTESL 

INaPC2 

INaPC 

EXBCERR 

RANGEER 

HMJUTAB 

(BEARH 



.BQU 00100 

.BQU ODOOO ;p-code address table 

.BQU 0D23B ;Increniait IPC by 2 and return. 

.BQU 0D24D ;Incranait IPC and return. 

.BQU ODIFB ; Execution error. 

.BQU 0D1E7 jRange error. 

.BQU 0D279 ;Handle a jump in jump table. 

.BQU 0D155 ;Gets a big parameter 
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Listing 7-1 (continued) 



PAGE - 2 BITERP FILE rlOT.l .TEXT 



00001 

00001 

00001 

00001 

00001 

00001 

00001 

00001 

00001 

00001 

00001 

00001 

00021 

00041 

00061 

00081 

OOOAI 

OOOCI 

OOOCI 

OOOCI 

OOOCI 

0006* 

0002* 

OOOCI 

OOOEI 

OOOFI 

OOOFI 

OOOFI 

OOOFI 

OOOFI 

OOOA* 

OOOFI 

00121 

00151 

00151 

00151 

00151 

00151 

00151 

00151 

00151 

00151 

00171 

OOIAI 

OOICI 

OOIFI 

00211 

00231 

00251 

00251 

00251 

00251 

00251 

00271 

002AI 



GO 00 
FO** 
EO 01 
FO** 
EO 04 
DO** 



04 
08 

A2 09 
60 



03 

AD 89C0 

AD 89C0 



A2 00 
BD **** 
85 00 
BD **** 
85 01 
05 00 
FO** 



AO 00 
BD **** 
91 00 



The following entry point corresponds to the protocol 

described in the ATTACH-BIOS Panfhlet distributed by the 

International i^le Core. 

The Read, Write, and Status entry points fix the stack and 

return. 

The initialization code patches these routines into the 

Pifple Pascal p-oode interpreter. 



EN5RY 



CPX 


#0 


BEQ 


ms 


CPX 


#1 


BEQ 


KJS 


CPX 


*4 


BNE 


mi'l'OODE 



;REflD? 



User program attanpted to Read, Write, or check the status 
of this device. Return a unit off-line error. 



ms 



UX. 
KPS 



t9 



DJITCODE patches the Apple I^scal p-oode interjareter to jtmp 
to these routines instead of the code in the language card. 



INITCODE 



LDA 
IDA 



0C089 
0C089 



;Write aiable RAM card 
;by accessing SC089. 



Patch the interpreter p-code address table with pointers 
to the routines in this source file. 

The address table belcw consists of two word-pointer pairs. 
The first word is the address of the entry in the p-code 
int^reter address table, the next two bytes are the address 
of the corresponding routine in this source file. 



HOVERERS 



I£K 
LD^ 
STA 
U3A 
STA 
CRA 
BEQ 



#0 

ADRSTBL,X 

PIR 

ADRSIBIH-1,X 

PFR+1 

pni 

ALUXNE 



;Get the address of the 
;entry in the p-code 
;address table. 

;DQne if zero. 



If the pointer address is not zero, transfer the next two 
bytes to the address specified ty the pointer saved in PIR. 



im 


to 


UA 


ADRS1BL+2,X 


OTA 


(raR),Y 
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Listing 7-1 (continued) 



PAGE 



3 INTERP FILE:INT.1.TE3!T 



002CI 

002DI 

00301 

00321 

00321 

00321 

00321 

0033 i 

00341 

00351 

0036! 

003 9 i 

00391 

00391 

00391 

00391 

0023* 

00391 

003CI 

003DI 

003DI 

003DI 

003DI 

003DI 

003DI 

003DI 

003DI 

002E* 

0028* 

OOID* 

0018* 

0Q3DI 

003DI 

00411 

00451 

00491 

004DI 

00511 

00551 

00591 

005DI 

00611 

00651 

00691 

006DI 

wau 

00751 
00751 
00751 
00751 
00791 
007DI 
007DI 
007DI 
007DI 



C8 

BD **** 

91 00 



E8 
E8 
ES 
E8 
ir I7nn 



INY 
LDA 
SUA 



ADP,STBLf3,X 
(PrR),Y 



Incremait the index to the next pointer pair and repeat. 



14 

AD 80C0 

60 



rax 

INX 
INX 
INX 



Once the patches are made, raiable the RAM card and return 
control to the p-code interpreter/ SYSTEM.ATTM31 prograns. 



ALUXaJE 



ISA 
RES 



0CO80 



;Read enable RAM card. 



4000 
3FO0 
3E00 
3D00 

OODO 
04O0 
2AD0 
22D0 
08D0 
lADO 
lODO 
88D0 
8AD0 
90D0 
92D0 
96D0 
42D0 
J3BQ. 



**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 
**** 

**** 



lEDO **** 
OCDO **** 



The follcwing address table consists of several two-a<3dress 
pairs. "Hie first address of each pair is the address of 
of the table aitry in the p-code interpreter. The second 
address is the address of the p-code routine that is 
replacing the stock Apple routine. 



MSSJSL 

ABIAER 

ADIAER 

SBIAm 

NGIAm 

LAND&m 

WSPUR 

CHKADR 

GEQIAER 

GTOIADR 

LEQIAER 

LESIAER 

NEQIACR 

FJEM5R 



MPIADR 
DVIAKl 



.VAM) 


JHPTBLfABI 


;ABS(n) f motion. 


.WUWJ 


JMi'i'H[/f4,ADI 


;AI» integers. 


.MM) 


JMi'i'BL+2A,SBI 


;Subtract integers. 


.WUKD 


JMPi'BL+22,M3I 


;Negate integer m TOS 


.MM) 


jMErBL4oa,LaNn 


;Logical AND TOS, 


.MCRD 


JMFrBL+lA,LC» 


;Logical CR TOS. 


.WM) 


OMPTBL+lOfCHK 


;CHK subrange bamds. 


.WCM) 


JMHrBL+88,GBQI 


;Test for integer >=. 


.WORD 


JMPi'BIH-8A,GIRI 


;Test for integer >. 


.WUKD 


JMfrBIH-90,LEQI 


;Test for <=. 


.WCM) 


JMPrBL+92,LESI 


jTest for <. 


.WCKD 


JMi'i'Bl>96,NBQI 


;Test for O. 


.WORD 


JMPrBLf42,FJP 


;False jump. 


.•WORD" 




rtjnconflitional jump. 


.IF 


HASAPU=1 




.VJCM) 


JMi'i'BL+lE,MPI 


.•Integer multiply. 


.WORD 


JMPTElaOCjDVI 


; Integer divisiai. 


.ENDC 






.IF 


HASCLK=1 
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Listing 7-1 (continued) 



PAGE - 4 nfi'tKP 


FTT.F,:INr,l.'IEXr 






007DI 








007DI 12D1 **** 


TIMEflDR 


.WORD 


JMPi'B]>112,TIME 


00811 








00811 




.H3DC 




00811 








00811 0000 




.WORD 





00831 










00831 










00831 










00831 




CocTp to replace the P^le Pascal flBI 


00831 










00831 




Original flppl 


e Pascal 


code: 


00831 










00831 




ABI 


PIA 




00831 






TAX 




00831 






PLA 




00831 






BMI 


$0 


00831 






PEiA 




00831 






TXA 




00831 






PHA 




00831 






JMP 


InCPC 


00831 










00831 




$0 


TPS 




00831 






CLC 




00831 






TXA 




00831 






BOR 


tOFF 


00831 






ADC 


#1 


00831 






TAX 




00831 






Ta 




00831 






BOR 


♦OFF 


00831 






ADC 


to 


00831 






PHA 




00831 






TXA 




00831 






PHA 




00831 






JMP 


INCPC 


00831 










00831 




■ NGI 


HA 




00831 






K3R 


tOFF 


00831 






CLC 




00831 






ADC 


#1 


00831 






TAX 




00831 






PLA 




00831 






XOR 


tOFF 


00831 






ADC 


#0 


00831 






PHA 




00831 






TXA 




00831 






EHA 




00831 




f 


JMP 


INQPC 


00831 




? 






00831 




' 






00831 




? The unproved 


code is: 




00831 




' 






003F* 8300 








00831 BA 


ABI 


TSX 




00841 H) 0201 






IDA 


STACK+2,X 



;Get the integer 
;on TOS. 
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Listing 7-1 (continued) 



BRGE 



5 INTQIP FILE:INT.l.TEXr 



00871 

00891 

004B* 

00891 

008AI 

008BI 

008DI 

00901 

00931 

00951 

0098! 

0087* 

009BI 

009£i 

009EI 

009EI 

009E! 

009EI 

009EI 

009EI 

009EI 

009Ei 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

b09Ei 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

OOSEU. 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 

009EI 



10** 

8900 
BA 
38 

A9 00 
ro 0101 
9D 0101 
A9 00 
PD 0201 
On Q201 

12 

4C ADD2 



BEL 



ABIXIT 



;Is it positive? 



NGI 



TSX 




;Negate integer 


SBC 




;by subtracting it 


ISk 


to 


;froni zero. 


SBC 


SEfiCK+l,X 




OTA 


STftaC+l,X 




Wk 


*0 




SBC 


OTBCK+2,X 




cjra 


sfpanrj-o -y 





ABIXIT 



OMP 



mapc 



ADI- Add two integers on "SOS, 

ADI adds the integer at TOS-1 to the integer at TOS. 
Both items are popped and the sum is thai pushed onto the 
p-nadiine evaluation stack. The stack frame for this 
operation looks something like: 

Before ADI: 



valuel 



value2 



rest of the 
stack 



After ADI: 



valuel + value2 I 

1 

rest of stack I 



Since addition is ccDDUtative ros can be popped and 
added to TOS-1 on the stack. Hie original Pfiple (OCSD) 
code fails to take advantage of the fact that data on 
the fifeack can be aooeeeed ueaag the £ index registec. 
A{{>le's code pc^ IDS en& stores it into sane ten^rary 
zero page location, pops IDS-l, adds them, and pushes 
the result. 



Original i^le Pascal code: 



«)I 



FLA 
STA 



TEMP 
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Listing 7-1 (continued) 



PAGE 



6 DJTEKP FILErlNT.l.raSCr 



009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
009EI 
0043* 
009E! 

oogpi 

OOAOI 
00 All 
OOMI 
00A7I 
00A8I 
OOABI 
OOAEI 
OOEai 
OOEII 

oomi 

OOBll 
OOHLI 
OOEII 

ooEai 

OOBll 
OOEII 
OOEII 
OOEII 
OOELI 
OOEII 
OOEII 
OOEII 
OOEII 
OOEII 
OOELI 
OOEII 
OOEII 
OOBll 
OOEII 
OOEII 
OOEII 
OOBll 
OOEII 



PLA 
STA 
PLA 
TAY 
PLA 
TAX 
TXA 
CLC 
ADC 
TAY 
TXA 
ADC 
FHA 
TXA 
PHA 
JMP 



TEMPH 



THIP 



TEMPfl 



INaPC 



9E0O 

BA 

18 

68 

7D 0301 

9D 0301 

68 

7D 0401 

9D 0401 

4C 4DD2 



Iiiiptoved code: 






■rex 






CLC 






PLA 




;Md TOS to 


ADC 


STflCK+3,X 


;TOS-1 and leave 


STA 


STflCK+3,X 


;result on IDS. 


FLA 






ADC 


STaCK44,X 




STA 


ST»3C+4,X 




JMP 


DKIPC 





^I- Subtract integer on TOS-1 from integer on IDS. 



Before: 



TCB 



TOS-1 



rest of stack 



After: 



I (TOS-1) - TOS I 

I 1 

I rest of stack I 



Subtractiai is a little more complicated than addition 
because subtraction is not contutative. The data on TOS 
must be subtracted fron the data on TOS-1. This means 
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Listing 7-1 (continued) 



PAGE 



7 DJTEKP 



FILE:INT.1.TEXT 



OOBll 
OOBll 
OOEll 
OOBll 
OOBll 
OOBll 

ooai 

OOBll 

OOEll 

OOBll 

OOBll 

OOBll 

OOBll 

OOBll 

OOBll 

OOBll 

OOBll 

OOHLI 

OOEll 

OOBll 

OOBll 

OOBll 

OOEG.! 

OOBll 

OOBl! 

OOBll 

OOBll 

OOEll 

0047* 

OOBll 

00621 

00E3i 

00B6I 

00B9I 

OOBCI 

00^1 

0OC2I 

O0C51 

00C6I 

00C7I 

OOCAI 

OOCAI 

OOCAI 

OOCAI 

OOCAI 

OOCAI 

'oocaT 

OOCAI 
OOCAI 
OOCAI 
OOCAI 
OOCAI 
OOCAI 
OOCAI 
OOCAI 



the data on TDS cannot be popped off of the stack until 
the subtraction c^raticn is complete. 



Original Apple code: 



BlOO 

BA 

38 

BD 0301 

FD 0101 

9D 0301 

BD 0401 

PD 0201 

9D 0401 

68 

68 

4C 4H)2 



SBI FtA 






STA 


TEMP 




PLA 






STA 


TEMPH 




PLA 






TAY 






PLA 






IPX. 






TXA 






SEC 






SBC 


TEMP 




■EAY 






TXA 






SBC 


TEMPfl 




PHA 






TXA 






PHA 






JMP 


INQPC 




Urproved code: 






SI TSX 






SEC 






I£IA 


aEfiCK+3,X 


;G€t IDS and 


SBC 


STSat+l,X 


;si±)tract it from 


SEA 


ST?CK+3,X 


;the value on TOS-l 


LDA 


STACK+4,X 


;The result is left 


SEC 


STACK+2,X 


;on TOS-l 


STA 


SESCK+4,X 




HA- 





jRenKwe TOS so-that 


PLA 




;TOS-1 becomes TOS. 


JMP 


DKIPC 





LAND- Logical AND. 

Hhe logical /a© c^ration IS coimutative, therefore 
the new code is very similar to that for the ADI 

p-code" foutiite ' 

Original Apple code: 



LAND 



PLA 
STA 
PLA 
STA 
PLA 



TEMP 
TEMPJ-l 
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Listing 7-1 (continued) 



I«GE 



8 INTERP FILE:INT.l.TEXr 



OOCAI 

OOCAI 

OOCAI 

OOCAI 

OOCAI 

OOCAI 

OOCAI 

OOCAI 

OOCAI 

OOCAI 

OOCAI 

004F* CAOO 

OOCAI BA 



TAX 

PIA 
AND 
FHA 
TXA 
AND 
PHA 
JMP 



TEMPfl 

TEMP 
DKIPC 



OOCBI 
OOCCI 
OOCFI 
00D2I 
00D3I 
OQDei 
00D9I 
OQDCI 

OODCI 

OODCI 

OQDCI 

OODCI 

OODCI 

OQDCI 

OODCI 

OODCI 

OQDCI 

OODCI 

OODCI 

OODCI 

OODCI 

OODCI 

OODCI 

OODCI 

OODCI 

OODCI 

OODCI 

OODCI 

OODCI 

OODCI 

OODCI 

OODCI 

0053* 

OODCI 

OOI^I 

OODEI 

OOEII 

00E4I 

00E5I 

00E8I 

00^1 



68 

3D 0301 

9b 0301 

68 

3D 0401 

9D 0401 

4C 4IX)2 



Improved code: 




iND OSX 




PLA 




AND 


SIHCK+3,X 


STA 


STflCK+3,X 


HA 




AND 


STSCK+4,X 


SIA 


STfiCK+4,X 


JMP 


iNapc 



DCOO 

BA 

68 

ID 0301 

9D 0301 

68 

ID 0401 

9D 0401 

4C 4DD2 



iJUK- Logical CR. 



Logical OR is also cscnroutative, therefore it's 
easy to perform the LOR <^)eration. 



Original ftppie code: 



LCR PLA 




STA 


TEMP 


PLA 




STA 


TEMPfl 


PLA 




TAX 




PLA 




CRA 


TEMPH 


PHA 




TXA 




ORA 


TEMP 


PHA 




JMP 


INQPC 


Inproved code; 




R TSX 




PLA 




CRA 


STACK+3,X 


SEA 


STACK+3,X 


PLA 




CRA 


arACK+4,x 


STA 


STBCK+4,X 


OMP 


Djapc 
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Listing 7-1 (continued) 



PAGE 



9 HJTERP FILE:INT.1.1EXr 



OOEEI 
OOEBl 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 

OOEEI 
ftn pg I 

ooeeI 

OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
O OEE I 
MEEl 
OOEEI 
OOEEI 
OOEBl 
OOEEI 
OOEEI 
OOEEI 
OOEBl 
■OOEBl 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 
OOEEI 



.DKIiUDE im.2 



CHK- bounds diecking routine. 

The CHK p-code routine checks to make sure 
that (TOS-1) <= (TOS-2) <= (TOS). (OJOS) and 
(TOS-l) are popped, (TOS-2) is left on the stack. 
Since these three values are are signed 2's 
conplimait integers, a signed comparison must lae 
used, /^^ple's code does perform a signed canpariscai, 
but the method used is quite bizarre. The code replacing 
the CHK p-code routine uses the standard method for 
signed ccnparisons (see "Using 6502 Assottoly Language 
by Randall ^de, Chapter Six) . 



Original Ajple code: 



CHK 


HA 






STA 


TEMPI 




ELA 






STA 


TEMPl+1 




FLA 






STA 


TEMF2 




FLA 






STA 


TEMP2+1 




TSX 






IXIA 


STft3C+l,X 




SUA 


TEMP3 




im 


STfiCK+2,X 




STA 


■IH1P3+1 




BOR 


TEMP2+1 




BMI 


$0 




LDA 


THMP2+1 




CMP 


TEMP3+1 




BCC 


$2 




WE 


nnrajGERR 




LDA 


THIP3 




CMP 


TEMP2 




BCS 


S2 




BCC 


DORtCEBR 


! 50 


U3A 


TEMF3+1 




"bmi 


tOMSSSR' 


r 51 


ILk 


■HMPl+l 




BOR 


■ISMPS+l 




BMI 


$2 




UK 


TB1P3+1 




CMP 


TEMPl+1 




BCC 


$3 


; 


BNE 


D0BNI3BR 
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Listing 7-1 (continued) 



EfiGE- 10 INTERP FILE:INT.2.IEXT 



OOEEI 

OOEEI 

OOEEI 

OOEEI 

OOEEI 

OOEEI 

OOEEI 

OOEEI 

OOEEI 

OOEEI 

OOEEI 

OOEEI 

0057* 

OOEEI 

OOEFI 

OOFll 

00F2I 

00F4I 

OOFS I 

00F7I 

OOFS I 

OOFAI 

OOFBI 

OOFEI 

01001 

01031 

01051 

01051 

01051 

01051 

01071 

01091 

OlOBI 

OlODI 

OlOFI 

01111 

01141 

OlOD* 

01141 

01161 

01161 

01161 

OlOF* 

01161 

01181 

OllAJ 

one I 

OllEI 
01201 
01221 
01251 
OllE* 
01251 
01271 
012AI 



EBOO 
68 

85 04 
68 

85 05 
68 

85 06 
68 

85 07 
BA 

BD 0101 
85 08 
BD 0201 
85 09 



A5 04 
C5 08 
A5 05 
E5 09 
30** 
50** 
4C B7D1 



05 

50FB 



05 

A5 08 
C5 06 
A5 09 
E5 07 
30** 
70EF 
4C 4IX)2 

05 

50 EA 
4C 4IX}2 



LEA TEMP 

CMP THOg 

BCS $3 

BCX: DOI?NGERR 

?2 lift TEMPl+1 

BPL DOBNGEKR 

53 OMP HKIPC 

DORNGERR JMP RANGEKR 

The improved code is: 



CHK 



STA 


TEMPI 


HA 




SIA 


TEMPl+1 


PLA 




STA 


TEMP2 


HA 




•5™. 


TEMP2+1 


osx 




l£A 


arftcx+i,x 


acA 


TEMP3 


lift 


STflCK+2,X 


STA 


TEMP3+1 


Lf TOS 


>= TOS-2 


I£A 


TEMPI 


CMP 


TtMP3 


UA 


TEMPl+1 


SBC 


THffi3+l 


BMI 


CHKl 


BVC 


CHK2 


JMP 


RAN3ERR 



ESKQRl 

t 

CBKL BVC ERHCaa 

New check to make sure than TOS-2 >= TDS-1 

CHK2 



ITSQOCD 

f 

CHK3 



I£ft 


TEMP3 


CMP 


TEMP2 


UA 


TEMP3+1 


SBC 


TEMP2+1 


BMI 


CHK3 


BVS 


ERK»1 


JMP 


DJaPC 


BVC 


ERKKl 


JMP 


INaPC 
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Listing 7-1 (continued) 



ESGE - 11 INTEEP FILE:INT.2.TEXr 



012AI 

012A! 

012AI 

012AI 

012AI 

012AI 

0i2AI 

012AI 

012AI 

012AI 

G12Ai 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

012AI 

.Q12a.l 

012AI 

012AI 

012AI 

012AI 

012AI 

005F* 2A01 

012A1 BA 

012BI 68 

01204 "I» (BOl 

012FI 68 

01301 EC 0401 

01331 30** 

01351 50** 

01371 

01371 

01371 

01371 

01371 



Integer oonparisons. 

The integer coitparisons whidi f ollcw ccmpare the signed 
integer ai (TOS-1) with the signed integer on (TOS) . OBUE 
(vMch is the value SOI) is pushed if the oon^ariscai 
operation holds, FALSE is puMied otherwise, m either 
case, the two <^rands on IDS are popped before TBDE or 
FALSE gets pushed. 

This ocxte offers two ogtinu,5?ations over itt»le's code. 
First of all, standard signed ccnparisons were used instead 
of i^ple's fuu^ method for perfonning signed oorpariscsis. 
Seocsid, individual routines were u^d instead of one routine 
with a lot of extra tests. This helped increase the 
execution time of the individual routines at the exp&ise of 
a larger piece of code. The code for BQUI is not included 
here since the routine in the Apple p-code interpreter is 
fairly optimal. 



Note: after a sixteen bit conpare of the form; 



ISA 


YALUEl 


CMP 


VALUED 


IXIA 


VALUEl+1 


SBC 


VALDE2+1 



The V flag is equal to the N flag if VALUEl >= VAUJE2 
The V flag is not equal to the N flag if VRLOEl < YALUE2 

Assianing that VALDEl and VALDE2 are signed, 16HDit, 
2's conplimait numbers. 



GTRI- cqipares TOS-1 to TOS and push OEUE if TOS-l > TOS. 



Note: this routine actually checks to see if TOS < TOS-1 
which is functionally the same oonparison. 



GTOI 



TSX 




PLA 




CMP 


SiaCK+3,X 


FLA 




SBC 


STBCK+4,X 


BMI 


OTSIO 


BVC 


PSHFI50 



At this point N o V so TOS < 'TCS-l (vMch means 
that (TOS-l) > TOS. 



A9 00 



PSHTODO 



UIA 



to 
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Listing 7-1 (continued) 



EfiGE - 12 INTERP FILE:INT.2.1EXr 



01391 


9D 0401 


013CI A9 01 


013EI 


9D 0301 


01411 


4C 4M)2 


01441 




0133* OF 


01441 


50F1 


01461 




01461 




01461 




0135* OF 


01461 


A9 00 


01481 


9D 0301 


014BI 


9D 0401 


014EI 


4C 4DD2 


01511 




01511 




01511 




01511 




01511 




01511 




01511 




01511 




01511 




0063* 


5101 


01511 


BA 


01521 


68 


01531 


I» 0301 


01561 


68 


01571 


FT) 0401 


015AI 


30** 


015CI 


50** 


015EI 




015EI 




015EI 




015EI 


A9 00 


01601 


9D 0301 


01631 


9D 0401 


01661 


4C 4DD2 


01691 




015A* 


QD 


01691 


50F3 


016BI 




016BI 




016BI 




015C* 


OD 


016BI 


A9 01 


016DI 


9D 0301 


01701 


fl9 00 


01721 


9D 0401 


01751 


4C 4IX)2 


01781 




01781 




01781 




01781 





SIA 

STA 
JMP 



sracK+4,x 

#1 

STACK+3,X 

DKIPC 



GIRIO BVC PSHTOUO 

At this point N = V so TOS >= TDS-1. 



PSHFLSO I£ft #0 

SPA sracK+3,x 

STA STACK+4,X 

JMP DdPC 



LBQI- Push true if TOS-l <= IDS. 



Note: This code actually checks to see if TOS >= TOS-l 
which is functiaially the same con^arison. 



LBQI 



TSX 




FLA 




CMP 


ffEACX+3,X 


PLA 




SBC 


S3aCK+4,X 


BMI 


LBQIO 


BVC 


PSaTOD2 


N <> 


V so TOS >= 1 


UA 


«0 


SEA 


STfiCK+3,X 


STA 


SEBCK+4,X 


JMP 


INQPC 



PSaFLS2 



LBQIO BVC PSHFI£2 

At this point N = V so TOS >= TOS-l 

PSHTOU2 



UA 


#1 


SIA 


sracK+3,x 


Wk 


#0 


SEA 


STfiCK-f4,X 


JMP 


DKIPC 



GBQI Checks to see if TOS-l >= TOS. 
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Listing 7-1 (continued) 



PAGE - 13 INTERP FILE: INT. 2 .TEXT 



005B* 7801 


01781 


BA 


01791 


BD 0301 


017CI 


UD 0101 


017FI BD 0401 


&182I 


H) 0201 


01851 


30** 


01871 


50** 


01891 




01^ i 


DO 


018&I 


68 


018BI 


A9 00 


018DI 


9D 0301 


01901 


9D 0401 


01931 


4C 4DD2 


01961 




0185* 


OF 


01961 


50F1 


0187* 


OF 


01981 


68 


01991 


68 


019AI 


A9 01 


019CI 


9D 0301 


019FI 


A9 00 


OlAll 


9D 0401 


OlMI 


4C 4K)2 


01A7I 




01A7I 




01A7I 




01A7I 




0067* 


A701 


01A71 


BA 


01A8I 


BD 0301 


OlABI 


DD 0101 


OlAEI 


BD 0401 


OlEll ED 0201 


01B4I 


30** 


01B6I 


50** 


01B8I 




01B8I 


68 


01B9I 


68 


OIBAI 


A9 01 


OIBCI 


9D 0301 


OlEFI 


A9 00 


mcu 


«)"0461 


01C4I 


4C 4DD2 


01C7I 




01B4* 


11 


01C7I 


50 EF 


01C9I 




01B6* 


11 


01C9I 


68 


OICAI 


68 


OICBI 


A9 00 



GBQI 



irixi£i.MSX 



TSX 




I£A 


SrACK+3,X 


CMP 


STACK+1,X 


IDA 


SiaCK+4,X 


SBC 


STACK+2,X 


BMI 


GBQIO 


BVC 


PSH'iKDl 


TTT H 




cijn 




ELA 




ITft 


to 


STA 


STflCK+3,X 


STA 


STfiCK+4,X 


JMP 


INCIPC 



GEQIO 
PSHTOUl 



BVC 



PSHFLSl 



PLA 




PLA 




LDR 


*1 


STA 


STflCK+3,X 


Uft 


#0 


OTA 


STACK+4,X 


JMP 


INCTPC 



LESI- Pushes IRUE if TDS-1 < TOS. 



LESI 



PSHTOU3 



TSX 




U)k 


STACK+3,X 


CMP 


STACK+1,X 


IDA 


SrACK+4,X 


SBC 


SrflCK+2,X 


BMI 


LESIO 


BVC 


PSHFI£3 


PLA 




PLA 




IDA 


#1 


STA 


STfiCK+3,X 


IDA 


#0 


gm 


SXdCKUrX 


JMP 


INCIPC 



LESIO 



PSHFLS3 



BVC 



PLA 
PLA 
IDA 



PSHTOL3 



#0 
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Listing 7-1 (continued) 



EAGE - 14 DWERP FILE:INT.2.'IEXT 



OICDI 


9D 0301 


OIDOI 


9D 0401 


01D3I 


4C 4DD2 


01D6I 




01D6I 




01D6I 




01D6I 




006B* D601 


01D6I 


BA 


01D7I 


68 


01D8I 


DD 0301 


OlDBI 


DO** 


OlDDt 


68 


OlDEI 


ro 0401 


OlEll 


DO** 


01E3I 




01E3I 


A9 00 


01E5I 


9D 0301 


01E8I 


9D 0401 


OlEBI 


4C 4M)2 


01 RR! 




01I»* 


11 


OIEEI 


68 


OlEl* 


OC 


OlEFI 


A9 01 


OlFll 


9D 0301 


01F4I 


A9 00 


01F6I 


9D 0401 


01F9I 


4C 41332 


OlFCI 




OlFCI 




OIPCI 




OIPCI 




oirci 




OIPCI 




OIPCI 




006F* FCOl 


OlFCI 


68 


OlEDI 


4A 


OIFEI 


68 


OIFFI 


BO** 


02011 




0073* 


0102 


02011 


C8 


02021 


18 


02031 


Bl 58 


02051 


30** 


02071 


65 58 


02091 


85 58 


020BI 


90** 


020DI 


B6 59 


020FI 




020B* 


02 


OlFF* 


OE 


020FI 


4C 3ED2 



SEA 
STA 
OMP 



ST«3C+3,X 
STM2C+4,X 

INCIPC 



NBQI- Pushes TSUE if 1DS-1 <> TOS. 



NEQI 


TSX 

PLA 






CMP 


SIHCK+3,X 




Bl^ 


PSinHJ4 




PLA 






CMP 


STACK+4,X 




BNE 


PSHTOU5 


PSHFLS4 


Wk 


#0 




STA 


STflCK+3 ,X 




STA 


STACK+4,X 


r 


OMP 


no PC 


panwj4 


PLA 




PSHTODS 


IXft 


#1 




STA 


STfiCK+3,X 




UA 


to 




STA 


STflCK+4,X 




JMP 


raapc 



The FJP and UJP instructicxis are another couple of p-codes 
that can benefit from a little c^imization. 



FJP 



UJP 



PLA 




LSR 


A 


PLA 




BCS 


JMPIPC2 


INY 




CLC 




I£A 


(IPC) ,Y 


BME 


JMPJTAB 


ADC 


IPC 


STA 


IPC 


BOC 


0MPIPC2 


INC 


IPC+1 



;Set Y-reg to one. 



JMPIPC2 



JMP 



INaPC2 
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Listing 7-1 (continued) 



EBGE - 15 INTEKP FILE:INT.2.aE3{T 



02121 




0205* OB 


02121 


4C 79D2 


02151 




02151 




02151 




02151 




02151 




02151 




02151 




02151 




02151 




02151 




02151 




02151 




02151 




02151 




02151 




02151 




02151 




02151 




0077* 


1502 


02151 


2C FICO 


02181 


30FB 


021AI 




021AI 


68 


021BI 


8D FOCO 


021EI 


68 


021FI 


8D FOCO 


02221 


68 


02231 


8D FOCO 


02261 


68 


02271 


8D FOCO 


022AI 


A9 6E 


022CI 


8D FICO 


022FI 




022FI 


2C FICO 


02321 


3dFB" 


02341 


AD FOCO 


02371 


48 


02381 


AD FOCO 


023BI 


48 


023CI 


4C 4DD2 


023FI 




023FI 




(CaFi 




023FI 




007B* 3F02 


023FI 


2C FICO 


02421 


30FB 


02441 


68 


02451 


A8 


02461 


68 


02471 


AA 


02481 


68 



JMKTEfiB 



JMP 



.LIST 
.IF 



HM3UEAB 



HASAPU=1 



ATO functions. 

These guys are only inplemented if the HASAPU label is 
equated to one. If order for this code to function 
prc^ierly you must have a CCS arithmetic 
card installed in the slot defined by AHISLOT. 



Do the integer stuff first: 

MPI- Multiply the two integers on TOS. 







MPI 



$0 



BIT 


APUSLOW-l 


BMI 


MPI 


FLA 




STA 


APUSLOr 


HA 




STA 


APOSTHF 


HA 




STA 


APTISTOT 


HA 




STA 


APUSLCT 


I£IA 


#6E 


STA 


APUSLOPH 


BIT 


APriRrrm-i 


HHI 


^ 


IDA 


APUSLOT 


PHA 




lift 


APUSLCT 


IHA 




JMP 


iNapc 



fWait 'til FPU ready. 



;9511 MDL c^xx)de 



DVI- Divide integer on "TOS-l by integer oa ITOS.. 



DVI 



BIT 


APUSLOK-l 


BMI 


DVI 


PLA 




TRy 




HA 




TAX 




HA 
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Listing 7-1 (continued) 



BAGE - 


16 INTERP 


FTT.F:INT 








02491 


8D FOCO 




SIA 


AEUSLCT 




024CI 


68 




PLA 






024DI 


8D POO) 




sm 


ATOSLOF 




02501 


8C FOCO 




3n 


APOSLOP 




0253 1 


8E FOCO 




HEX 


ATOSLOF 




02561 


A9 6F 




LDA 


#6F 


;Divide integers c^xxxte 


02581 


8D FICO 




STA 


ATOSLOW-l 




025BI 


2C FICO 


$0 


BIT 


ATOSLOW-l 




025EI 


30FB 




BKE 


$0 




02601 


AD FOCO 




I£A 


ATOSLCT 




02631 


48 




FSA 






02641 


AD FOCO 




UDk 


ATOSLOT 




02671 


48 




PHA 






02681 


4C 4nn?. 




OMP 


ncipc 




02661 




f 








026BI 




1 








026BI 






.ENDC 






026BI 




; 








026BI 






.IF 


HASCLK=1 




026BI 




7 








007F* 6B02 










026BI AD nlO) 


TIME 


IXIA 


CLKSrOW3 


;Get lOths of a second 


026E1 


29 OF 




AND 


#0F 


;and ccawert them to 


02701 


OA 




ASL 


A 


•60ths of a second by 


02711 


85 08 




SEA 


TmP3 


jmultiplying by 6. 


02731 


OA 




ASL 


A 




02741 


65 08 




ADC 


TEMP3 


;CLC from ASL above 


02761 


48 




EHA 




;Save lOths of a second. 


02771 














02771 






Get the seccskls value and nailtiply 


it by 60. 


02771 














02771 


AD D3C0 




IXIA 


CLKSLa»3 




027AI 


29 PO 




AM) 


tOFO 




027CI 


85 04 




SUA 


TEMPI 




027EI 


85 08 




SEA 


TiMPi 




02801 


AD D2C0 




IDA 


a:jSLaiM-2 




02831 


85 05 




STA 


TEMPl+1 




02851 


85 09 




SEA 


TEMP3+1 




02871 


PH DICO 




IXIA 


dJSLCTfl 




028AI 


85 06 




SEA 


TtMP2 




028CI 


85 OA 




STA 


TEHP4 




028EI AD TXXX 




UA 


CLKSLOTH) 




02911 


29 IP 




AND 


«1F 




02931 


85 07 




SEA 


TEMP2+1 




02951 


85 OB 




SEA 


TOHP4+1 




02971 






' 








02971 






• At this 


point locations 1IMP3 . .TEMP4+1 contain the time 


02971 






• imiltiplied by 16. 






02971 






' 








02971 






■ Hake it times 32. 






02971 






' 








02971 


06 08 




ASL 


TEMP3 




02991 


26 09 




WL 


TEMP3+1 




029BI 


26 OA 




ROL 


TEMP4 




029DI 


26 OB 






RDL 


'raMP4+l 
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Listing 7-1 (continued) 



PAGE - 17 INTHIP 



FILE:INT 



029FI 






029FI 






029FI 






029FI 






029FI 


A2 


03 


02A1I 


46 


07 


02A3I 


66 


06 


02A5I 


66 05 


02A7I 


66 


04 


02A9I 


18 




02MI 


A5 


04 


02ACI 


65 08 


02AEI 


85 08 


02B0I 


A5 


05 


02B2I 


65 09 


02B4I 


85 


09 


02B6I 


A5 


06 


02B8I 


65 OA 


02BM 


85 


OA 


02BCI 


A5 


07 


02BRI 


65 OB 


02C0i 


85 


OB 


02C2I 


CA 




0201 


DOUC 


02C5I 






02C5I 






02C5I 






02C5I 


18 




0^:61 


68 




02C7I 


65 08 


02C9I 


85 


08 


02CBI 


90** 


02CDI 


B6 


09 


02CFI DO** 


02D1I 


E6 


OA 


02D3I 


DO** 


02D5I 


B6 


OB 


07DT\ 






02D7I 






02D7I 






02D7I 






02D3* 


02 




02CF* 06 




02CB* OA 




02D7I 


68 




Q2D8.I. 


.85. 04 


02Dki 


68 




02DBI 


85 


05 


OTTDI 


68 




02DEI 


85 


06 


02E0I 


68 




02E1I 


85 07 


02E3I 


AO 


00 


02E5I 


A5 


08 


02E7I 


91 


04 



Add in the time multiplied by 16, 8, and 4 to create 
the value TIME*60. 



I£K 


#3 


DIVDLOOP LSR 


TEMP2+1 


PCR 


■ItMKi 


VCR 


THCl+l 


KDR 


TEMPI 


CLC 




Uft 


TEMPI 


ADC 


TEMP3 


STA 


TiMP3 


HA 


TEMPl+1 


ADC 


TEMP3+1 


STA 


TEMP3+1 


ILA 


TEMP2 


ADC 


TaiP4 


STA 


TEMP4 


IIIA 


TEHP2+1 


ADC 


TEMP4+1 


STA 


TEMP4+1 


DEX 




BNE 


DIVDLOOP 


; Get the lOths of a 


second value 


? 

CLC 




FLk 




ADC 


TEMP3 


STA 


TEHP3 


BCC 


$0 


INC 


TEMP3+1 


BKE 


$0 


INC 


TEMP4 


BNE 


50 


INC 


TBMP4+1 



Now store the time in the locations pointed at by 
TOS and 10S-1. 



$0 



PLA 




SEA 


TEMPI 


HA 




STA 


TEMPl+1 


PLA 




SEA 


TEMK 


PLA 




SEA 


TEMP2+1 


IJDY 


to 


ISk 


TEMP3 


STA 


(TEMPI) ,Y 
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Listing 7-1 (continued) 



PAGE - 18 INTERP FILE:INT 



02E9I 


A5 


OA 


02£Bi 


91 


06 


02EDI 


C8 




02EEI 


A5 


09 


02FOI 


91 


04 


02F2I 


A5 


OB 


02F4I 


91 


06 


02F6I 


4C 3ED2 


02F9I 






02F9I 






02F9I 






02F9I 






02F9I 







IDk 


TIMP4 


STA 


(TtMKi) ,y 


INY 




UA. 


TaiP3+l 


SEA 


(TEMPI) ,y 


USi 


TEMP4+1 


SEA 


('nME2),Y 


JMP 


INaPC2 



.a©c 

.EMD 
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8 



Attaching Your Own Devices 
to tlie Pascal BIOS 



Modifying the Apple Pascal BIOS 

When Apple Pascal was first released, many Apple owners were shocked to 
learn that Apple Pascal only supported devices that were manufactured by 
Apple or were completely hardware compatible with Apple's device (which 
was quite rare). After numerous complaints, Apple modified the operating 
system in version 1.1 to allow foreign peripheral cards to operate with the 
Pascal system. 

The official document describing how to interface "foreign" devices to the 
Apple Pascal system is: 

ATTACH-BIOS for Apple II Pascal 1.1 

written by Barry Haynes. It is reprinted in the appendix. This manual pro- 
vides enough information that the advanced user can write his own drivers 
for the Pascal system. I will use several concrete examples here to help 
solidify the use of the ATTACH-BIOS routines and the FIRMWARE pro- 
tocol for attaching devices to the Apple Pascal system version 1.1 
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I/O Overview 

The Apple Pascal system supports four levels of I/O. These I/O levels are 
grouped into a hierarchy as follows: 



Pascal High Level I/O (including READLN, 
WRITELN, GET, and PUT). 

These routines are written in Pascal and are the 

main reason I/O is so slow in the Pascal CS. 
_ 



Pascal low-level I/O. Includes the BLOCKREAD, 
BLOCKWRITE, UNITREAD, UNITWRITE, 
UNITCLEAR, and UNITSTATUS routines. 

BLOCKREAD and BLOCKWRITE are written \n 

Pascal so they tend to run quite slowly. TTie 

UNITxxx calls all have their own p-codes so 

they run fairly fast. 



I I 

ill 



RSP (Run time support package). These routines, 

written in 6502 assembly language, are called 

by the interpreter code for the UNITxxx routines. 

The RSP checks the legality of the parameters 

passed by the UNITxxx routines, reformats the 

calls for the BIOS routines, and performs certain 

code translations (like expanding the DLE 

(blank compression) characters, adding 

linefeeds to carriage returns, check for EOF, 

etc.). 



I I 
I I 



BIOS level. This is the lowest level of I/O. This is 
the point that you attach your drivers to. 



Figure 8-1 
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There are two standard methods used to attach a driver to the Pascal system. 
You can use the "SYSTEM.ATTACH" method to load your driver into 
RAJVI at boot time, or you can use a special "FIRJVIWARE" protocol on 
the interface card ROM on your peripheral device. 

The "SYSTEM.ATTACH" method has the advantage that it is easy to 
reconfigure the system at will. Since the drivers are in RAM bugs can be 
fixed easily simply by updating a disk. Furthermore, you aren't restricted to 
256 bytes to 2K of code for your driver. Theoretically a driver using the 
"SYSfEM.ATTACH" mediod could be up to 32K long. There are three 
nrinciole disadvantages to the "SYSTEM.ATTACH" method. Firsr. everv 
byte of RAM utilized by the driver is subtracted from the user's available 
RAM. So although you can write drivers 32K long, doing so would severely 
limit the amount of memory left for running application programs. Second, 
the "SYSTEM.ATTACH" method slows the boot process down by several 
seconds. This is a minor annoyance, but the average Pascal user will certainly 
notice it at boot time. Finally, if the driver is rather large, or the user loads 
a bunch of drivers into memory at once, an eight kilobyte block of memory 
from locations $2000 to $3FFF must be left unused in the event the user 
needs to use HIRES graphics. To prevent memory contention the person 
attaching a driver to the system must allow for the HIRES page or serious 
trouble may develop if an attempt to use HIRES graphics is made. This 8K 
is totally wasted if the user never uses HIRES graphics. Luckily, most drivers 
are rather small and the user rarely loads in more than one driver, so this 
problem shouldn't occur very often. 

The ^FIRMWARE"" protocol has the advantage that it is instandy recog- 
nized at boot time, doesn't use up any user RAM, and doesn't create any 
memory contention problems (unless it's poorly written). The firmware 
protocol suffers from two main disadvantages: it requires ROM (and the 
associated support circuitry) which is certainly more expensive than a d^sk- 
ette, and if a bag is fouiKi in the sc^lware, updjrtes 1^ A finai 

(and possibly fatal) disadvantage is that you are limited to a maximum of 2 
1/4 kilobytes of space for the driver without resorting to exotic bank switch- 
ing techniques. 
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Creating Drivers Using tlie "SYSTEA/t-ATTACH" Metliod 

To use the "SYSTEM. ATTACH" method you must obtain a copy of the 
ATTACH-BIOS disk from your local Apple club, the Call - A.P.P.L.E user's 
group, or the International Apple Core (LAC). This diskette includes the 
ATTACH-BIOS documentation mentioned previous in addition to the 
SYSTEM.ATTACH and ATTACHUD.CODE programs required to use 
the SYSTEM.ATTACH method to attach user devices to the Pascal system. 

To use the SYSTEM.ATTACH method you must include three files on your 
boot diskette: the "SYSTEM.ATTACH" program provided on the ATTACH- 
BIOS disk, an ATTACH.DRIVERS file containing the 6502 assembly lan- 
guage drivers for your device, and the ATTACH.DATA file that holds cer- 
tain information for the user defined device drivers. The ATTACH.DATA 
file is created using the ATTACHUD.CODE (attach user device) program 
found on the ATTACH-BIOS disk. During the boot process the SYS- 

TTTJA/r ATTTAr^XJ ~, ;„ ^U-, i:_„.u J / 1 r- ^^rr^ 

xAjj.yA.ii.x XiiV^Aj. yLKJ^LiXllL 13 UXC 1U5L piUgliUIl CACCUtCU (CVCU OeiOte 515- 

TEM.STARTUP). This program reads the ATTACH.DRIVERS and 
ATTACH.DATA files and patches the user device drivers into the operating 
system. 

User defined device drivers must be written in 6502 assembly language 
using the Pascal Assembler. They cannot use the ".ABSOLUTE" option 
since they are relocated as they are loaded into the system at boot time. All 
drivers must be assembled separately (if you are attaching more than one 
driver to the system) and may not contain any external references. The driver 
must be completely selif-contained. If you need to create an 
ATTACH.DRIVERS file with more than one driver you must assemble the 
files separately and link them together using the Pascal librarian program. 
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Each driver uses the following organization: 

Initial entry point >- — \^ 

\ 

\ 

_ \ 

/ 



Code to decipher call type. 



Code for Unit read ► 



Code for Unit write - 



Code for Unit clear ► 



Code for Unit status — ^ 



Figure 8-2 
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Whenever a user-defined I/O device is referenced the RSP JSR's to the initial 
entry point in the user device driver. The initial entry point must figure out 
what type of I/O operation is being requested based on the contents of the 
X-register. Upon entry into the user device driver the X-register is decoded 
as follows: 

-» Read operation 

1 -> Write operation 

2 -^ InitiaUzation call (UNITCLEAR) 

3 -^ Status call. 

A code segment to handle this decision making process might be: 



ENTRY 



If 


XREG < 2 it iiiust be 1 » 


CPX 


»0 


BEQ 


USERREAD 


CPX 


«Z 


BCC 


USRWRITE ;if XREG < 2 


BEO 


USERINIT ;if XREG = 2 



i t must be 1 < 



At this point you must be performinS a UNITSTATUS 
ope rat ion . 



Additional parameters to these routines are passed on the 6502 hardware 
stack. The number and meaning of the parameters passed on the stack depends 
upon the type of call being made (read, write, init, or status) and whether 
this is a driver replacing the CX)NSOLE:, REMIN:, REMOUT:, PRINTER:, 
a disk drive, or one of the user defined devices (unit numbers 128.. 143). 



Replacing the CONSOLE: Driver 

The CONSOLE: driver requires considerable care in its implementation. 
First of all, a special entry point must be made for the console check routine 
that handles the type ahead buffer. Second, due to the interaction between 
the Apple's keyboard and the rest of the system there are special initialization 
steps which must be taken. 
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For the CONSOLE: driver, the Accumulator is used to pass the character 
read or written to the console device, the Y-register contains the UNIT 
number (usually unit numbers one and two are attached to the console 
driver, but you can hook the PRINTER: and REMxxx: devices to this driver 
as well. The Y-register will let you decode which device is requesting I/O), 
and the X-register contains the operation desired. On exit the Accumulator 
passes the data (if this is a read operation) back to the calling routine and 
the X-register contains the lORESULT (zero if no error). 

The entry points for the CONSOLE: driver should look something like: 



CONCHK JMP 


CQNSCHK 


ENTRY CPX 


«0 


BEQ 


CONREAD 


CPX 


«2 


BCC 


CONWRITE 


BEQ 


CONINIT 


! CONSTATUS Sees 


here 



The CONSCHK routine should check the console input device and see if 
a character is available. If it is, then the character should be read and buffered 
up in the type ahead buffer. The normal entry point for the CONSOLE: 
driver is located three bytes after the start of the driver routine. Therefore, 
there's just enough space at the beginning of the driver for a single JMP 
instruction to the console check routine. The normal driver code should 
immediately follow the JMP to the console check subroutine. 

CONSOLE: read and write calls only have the return address sitting on the 
hardwaiie-stack. Ay data passed ta and from the routines k jwtssed in the 
6502 registers. Init and status pass parameters to the driver routine on the 
stack (as well as in the registers). If the X-register contains two then the call 
is an initialization call and the data passed on the stack is: 
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SP 



Return 

DII I I M il ll llll l l l l Hm ilCW( 



Address 



SYSCOM 



Pointer 




Figure 8-3 



As usual, the 6502 return address is sitting on the top of the hardware stack. 
This return address must be popped off of the stack and saved in a couple 
of temporary locations. The next two bytes on the stack form a pointer to 
the system's communication area (SYSCOM). It is the responsibility of the 
CONSOLE: init routine to pop this pointer off of the stack and save it in 
locations $F8 and $F9. Immediately above the SYSCOM pointer lies the 
pointer to the break vector. The console routine must jump to this location 
whenever the break key is pressed (currendy shift-control-P on the Apple 
11; shift-control-2 on the Apple He). This address should be popped and 
stored into locations $BF16 and $BF17. Once the break and syscom vectors 
have been popped and stored the init routine should push the return address 
back onto the stack, load the X-register with zero (no error), and execute 
an RTS instruction. A typical CONSOLE: status routine might look some- 
thing Uke: 
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CONINITPLA 




STA 


TEMP 


PLA 




STA 


TEMP+i 


PLA 




STA 


0F8 


PLA 




STA 


0F9 


PLA 




STA 


eiBFlS 


PLA 




STA 


0BF17 


LDA 


TEMP+1 


PHA 




LDA 


TEMP 


PHA 




LDK 


#0 


RTS 





Note that the low order byte is popped off of the stack before the high 
order byte is popped. 

The CONSOLE: status routine, just like the CONSOLE: init routine, expects 
to find three words of data sitting on the stack. The word on the top of 
stack is the 6502 return address (which must be popped and saved). Imme- 
diately above the return address is the "control word". The control word 
uses the following format: 



Bits reserved for the system 



15 




14 


13 


12 


11 


10 


9 


8 


7 


6 


5 4 


3 


2 


1 







\ 








































Bit #1 = 1 for Unitcootrol 
Bit n = for Unltstatus 




■•■■l-i-i-:-:- 


Bits reserved for user 



Bit #0 = 1 for input 
Bit #0 = for output 



Figure 8-4 

If bit number zero is one then the status of the CONSOLE: input is being 
checked. If bit number zero is zero then the output status is being checked. 
Bit number one is used to determine the type of call. If bit number one is 
zero, then a unitstatus call is being made. If bit number one is one, then a 
unitcontrol call is being made. Bits two through twelve are reserved for use 
by the system and bits thirteen through fifteen are reserved for die user. 
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The next byte on the stack is a pointer to the status record. If a unitstatus 
call is being made, then the CONSOLE: status routine should return the 
number of characters buffered in the direction specified. For example, if this 
is an input status request you should return the number of characters cur- 
rently buffered in the typeahead buffer in the word pointed at by the third 
word on the stack. If you have not implemented a type-ahead buffer then 
you should return one if a console character is ready and zero if no character 
is ready. If an output request is being made you should return the number 
of chararters being buffered in the output direction. If you haven't imple- 
ment a "printer" buffer on the CONSOLE: output you should store zero 
in the word pointed at by the status record pointer. An example of a CON- 
SOLE: status routine is: 



CONSTAT 


PLA 








STA 




TEMP 




PLA 








STA 




TEMP+1 




PLA 








STA 




CNTRLWRD 




PLA 








STA 




CNTRLWRD+1 




PLA 








STA 




STATREC 




PLA 








STA 




STATREC+1 


5 


LDA 




CNTRLWRD 




AND 




*2 


iCheck for 


UNITCONTROL 






BNE 




UCNTRL 


! 

; Unit status here. 






! 


LDA 




CNTRLWRD 




LSR 






iChecK L.D 


, bit 








BCC 




OUTSTAT 




LDY 




«0 




LDA 




NUMINBUF 


iGet » of 


:ha rs in 


buffer 






STA 




(STATREC) »Y 




INY 








LDA 




«0 




STA 




(STATREC) (Y 




JMP 




KITSTAT 


5 

OUTSTAT 


LDY 
TYA 




»0 




STA 




(STATREC) »Y 
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;No output 


buffer 
INY 








STA 


(STATREC) 


fY 


KITSTAT 


LDA 
PHA 


TEMP+1 






LDA 


TEMP 






PHA 








LDX 


#0 




!No errors 









RTS 



! NOTE: Unit control is totally defined by the user. 

Input data received from the console device must be returned with the H.O. 
bit cleared since Pascal uses the seven-bit ASCII code. Output data may 
contain bytes which have their high order bits set. Your output routine 
should interpret this data and act accordingly. If your output device requires 
seven bit ASCII data then you should strip the H.O. bit. If your output 
device responds to certain codes in the range $80..$FF then you should 
pass the data unchanged. 

The RSP (run-time support package) will send both upper and lower case 
to the console output device. If it cannot handle lower case your driver must 
map lower case to upper case. This is accomplished using the code: 



LC2UC 



$0 



CMP 


# " a " 


BCC 


$0 


AND 


*.mF 



The CONSOLE: output routines must recognize, and respond, to certain 
characters in a predefined fashion. The requirements are: 

a) CR (HEX OD) A carriage return should move the cursor to the begin- 
ning of the current line. It must not move the cursor down a line. 

b) LF (HEX OA) A line feed should move the cursor to the next line but 
it should not change the horizontal position. If the cursor is on the last 
line of the screen when the LF is transmitted, the screen should scroll 
up one line and the bottom line should be cleared. 
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c) BELL (HEX 07) If possible, a sound should be made (preferably a beep) 
when diis character is received. If a sound cannot be made the BELL 
character should be ignored. 

d) SP (HEX 20) A space character should move the cursor one position to 
the right, overvi^riting the data the cursor is currendy on top of If the 
cursor is in the last column of the current line then the CONSOLE: 
driver should leave the cursor in its current position after placing a space 
at the cursor position. If the cursor is in the last column of the last line 
on the screen then the screen should not scroll and the cursor should be 
left in the last column as above. These are the most desirable actions. In 
reality, any attempt to write beyond the last column on the display is 
undefined and almost anything is allowed. Keep in mind, however, that 
user programs often attempt to write beyond the last column so your 
driver should be rather robust about handling this situation. 

e) NULL (HEX 00) When a null character is sent to the screen it should 
be ignored. If possible, you should delay the amount of time required 
to print a normal character on the screen. 

f ) All printable characters (HEX 20.. 7F) should be treated exactiy like the 
SP character. 

g) The Apple Pascal Operating System Reference manual contains a dis- 
cussion of the special characters and how they must be treated on pages 
199-216. You should consult this manual for additional details. 

Additional CONSOLE: input requirements: 

a) The RSP handles echoing characters to the console. The characters typed 
at the keyboard should not be echoed to the screen by your driver. 

b) The start/stop character (usually control-S, but it is redefinable) must be 
detected and processed by CONCK. The program should loop in CONCK 
until either the start/stop character is received again or the break character 
is received. Locations $F8 and $F9 in zero page point at the SYSCOM 
area. The start/stop character is located at this location plus 85. To access 
the start/stop character you would use the code: 

LDY #85 
LDA ($FS) ,Y 
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The start/stop character should never be returned to the RSP. 

c) The flush character (offset 83 from the beginning of SYSCOM) will stop 
all echoing to the console until a second flush character is received. 
CONCK must detect the flush charaaer and set a flag to teU the console 
output routine to ignore characters while the flag is set. If a system reset 
occurs or the break key is encountered, the flush flag should be reset. 
Flush should only stop output to the console, other processing should 
continue. The flush character, like the start/stop charaaer, must not be 
returned to the RSP. 

d) The break character should cause CONCK to jump to the location whose 
address is stored in locations $BF16 and SBFIZ. This location is stored 
in locations $BF16 and $BF17 by the console init routine. Offset firom 
syscom for the break character is 84. 

e) The type-ahead buffer must be maintained by the CONCK routine. 
Every time the CONCK routine is called it should check the Apple's 
keyboard to see if a character is available. If a key has been pressed it 
should be stored into the type-ahead buffer. When the console read 
routine is called characters should be taken from the type ahead buffer 
and returned to the RSP. 

For more information on the requirements of the CONSOLE: driver con- 
sult pages 199-216 of the Apple Pascal vl.l Operating System Reference 
Manual. 



Replacing the PRINTER: Device (Unit 6) 

The Apple Pascal operating system supports a listing device called PRINTER: . 
ThistmitisTrscrvai'forijhanic^^ 

and for data output from within programs. The PRINTER: device is auto- 
matically attached to the system during the boot sequence if the BIOS 
determines that an Apple Parallel interface, communications card, or "firm- 
ware" card is present in slot number one. If you do not have one of the 
Pascal-compatible cards in slot one, or you wish to run your printer out of 
another slot, you will need to re-write the printer driver and attach it to unit 
number six. 
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The PRINTER: driver follows standard driver protocols, the first byte(s) 
of the driver routine must contain the first instruction of the initial entry 
code. Upon entry into the PRINTER: driver your code must check the X- 
register to determine what type of call (read, write, init, or status) the current 
invocation happens to be. 

If a write operation is being performed the character to be written to the 
PRINTER: device is passed in the 6502 accumulator. Therefore care must 
be taken in the initial entry code to preserve the 6502 accumulator in the 
event this is a write operation. The interpreter and RSP filter out and trans- 
form certain character like the blank compression codes and the EOF char- 
aaer. The RSP also adds line feeds to carriage returns automatically for you. 
If your printer must have an entire line of data transmitted at once, your 
driver must buffer the data up and transmit it once a CR-LF sequence is 
received. 

xxi»^ j^aoy^u. o^oLvxii aSauiix^^s uj.<tL uic piuiLci icspuiius to thrcc Aoi^ii cnar- 
aaers: CR, LF, and FF (carriage return, line feed, and form feed). The CR 
character should simply move the printhead to the beginning of the current 
line. It must not perform an automatic line feed. If your printer forces a 
CR-LF sequence whenever a CR is encountered you should filter out the 
LF that follows the CR charaaer (or use the line feed program found on 
APPLE 3:). The FF (form feed) character should advance the printer to 
the top of the next page and position the print head at column one of the 
first line on the new page. If your printer hardware doesn't support the FF 
character you should attempt to emulate this feature in software by counting 
output lines. If this isn't feasible, print a CR followed by one or two LF 
characters upon receipt of a form feed character. 

The PRINTER: init entry point should perform any necessary hardware 
initialization, clear any charaaers buffered up (if you have a buffered printer 
interface for example), and output a CR-LF sequence to the printer. As 
with all driver routines, the lORESULT code should be returned in the X- 
register. 

The input entry point for the PRINTER: driver should normally return 
with a completion code of three in the X-register. If your PRINTER: device 
can be read, then the character should be returned in the 6502 accumulator 
with the X-register containing zero if an I/O error didn't occur. 
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The PRINTER: status call pushes two words onto the stack before trans- 
ferring control to the PRINTER: driver. The stack setup is identical to the 
CONSOLE: stack set up. Your PRINTER: status routine should return 
the number of bytes buffered in the first word of the status record. Make 
sure you check the direction of this request (especially if your printer driver 
is output only) in the control word before returning any value. If you cannot 
determine this value then return zeroes in the first word of the status record. 
Don't forget to push the return address back onto the stack and load the X- 
register with the I/O completion call before executing an RTS instruction. 



Replacing the REMOUT: and REMIIM: Drivers 
(Units 7 & 8) 

The REMOTE: unit was originally intended for data communication pur- 
poses via an RS-232 interface device. However any device, be it modem, 
speech synthesizer, or whatever you've got, can be attached to the REMIN: 
and REMOUT: drivers. The only restriction is that the REMOTE: device 
should be capable of handling ASCII data (as opposed to pure binary data) 
since the RSP massages the data sent to the REMOTE: device. Blank 
compression codes are expanded, EOF is handled by the system, and line 
feeds are appended to carriage returns. If your device cannot handle line 
feeds after a carriage return then your driver must strip any line feed which 
immediately follows a return out of the output stream. 

Parameters are passed to the REMOTE: driver in a fashion identical to that 
for the PRINTER: driver. Data is passed to REMOUT: in die 6502 accu- 
mulator, data is returned from REMIN: in the accumulator, init requires 
no parameters (except lORESULT in the X-register upon return), and the 
remote status call passes its data on the stack and is handled in a fashion 
identical to that of die PRINTER: and CONSOLE: drivers. 



389 



Attaching Drivers to Blocic Structured Devices 
(Units 4,5,9.. 12) 

The block devices (units 4, 5, 9, 10, 11, and 12) are typically reserved for 
disk or similar devices. The UCSD/Apple Pascal system assumes the disk 
device is a zero-based consecutive array of 512-byte logical blocks. All Apple 
Pascal disks must conform to this logical structure regardless of their actual 
physical structure. The driver must convert this Pascal block number to the 
track/sector values required by the specific hardware. This scheme allows a 
wide variety of devices to be attached as a disk driver to the Pascal system. 

The attached driver, due to the way the system operates, cannot be the boot 
device. You must continue to boot off of the Apple's 5 1/4" floppy disk. 
Vendors or users who want to boot off of some device other than an Apple 
drive should contact Apple vendor support for additional instructions. 

The Apple Pascal system accesses the disk using the UNITRE AD and UNIT- 
WRITE routines. When accessing a block structured device five parameters 
are passed to the block device driver: a unit number, a control word, a buffer 
address, a byte count, and a block number. For read and write calls the stack 
looks something like: 



(High memory) 



TOS --»- 



Control word 
Drive Number 



Buffer Address 



Byte Count 
Blocl< number 



Return Address 



Figure 8-5 
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As usual the return address must be popped and saved while the other 
oarameters are ooDoed and saved. The unit number is passed in the 6502 
accumulator. The drive number found on the stack is a drive number for 
Apple's 5 Vi" floppy disk drives and should be ignored. 

The disk init routine has no parameters other than the unit number in the 
6502 accumulator. Any hardware/software initialization required should be 
performed during this call. 

The stack setup for the status entry is identical to that for CONSOLE:. 
Status recjucsts should return the loliowmg m tiic status recoru; 



Wordl : Number of bytes buffered 
in the direction asked for. 
Return zero if you have no 
way of 
checking. 

Word2: Number of bytes per sector. 

Words : Number of sectors per track. 

Word4: Number of tracks per disk. 

When a unitwrite is performed to the disk drive with a byte count that is 
not an even multiple of 5 12 bytes, you are allowed to write out a fuU block 
of 512 bytes if that is convenient. However, if a unitread is being performed 
you are not allowed to read a full block into the memory buffer if the byte 
count is less than 512. Attempting to do so may wipe out variables and 
code on the Pascal stack. If the byte count MOD 512 is not equal to zero 
vou win Have to Buffer the last sector read into a local data area arid move 
the last portion of data into the buffer using a 6502 move routine. 
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Attaching User Defined Devices to tiie BIOS 
(Units 128-143) 

Units 128-143 are reserved totally for user-defined applications. Their usage 
is totally user-defined except that parameters are passed to the user device 
exacdy like the block structured devices. This allows you to connect a disk 
drive or similar device to the system. Examples of several device drivers 
appear in the listings. 

Attaching Your Drivers to the System 

Apple Pascal vl.l supports a special boot-up protocol to handle attaching 
user defined devices to the BIOS. As you probably recall, Apple Pascal 
executes die "SYSTEM.STARTUP" program before control is returned to 
the user at the system level. This allows the programmer to create a "turnkey" 
system that automatically executes a program when the system is booted. 
Attaching drivers to the system is handled in a similar fashion. A special 
program, "SYSTEM. ATTACH", is executed when the system is booted 
(even before "SYSTEM.STARTUP" is executed). SYSTEM.ATTACH reads 
two files on die disk, "ATTACH.DATA" and "ATTACH.DRIVERS", and 
then patches the operating system with the user defined drivers kept in 
ATTACH.DRIVERS. The ATTACH.DATA file contains information used 
by SYSTEM .ATTACH to determine which drivers are to be patched. The 
previous sections in this chapter described how write the device driver; 
organizing these drivers on the boot diskette is all that remains to be done 
in order to make your driver functional. 

The first step to place the SYSTEM.ATTACH program on your boot disk- 
ette. SYSTEM.ATTACH is found on the ATTACH-BIOS diskette distrib- 
uted by the International Apple Core. You must obtain a copy of this 
diskette in order to attach your own drivers to the system. When SYS- 
TEM.ATTACH executes it reads the two files ATTACH.DRIVERS and 
ATTACH.DATA. 

ATTACH.DRIVERS contains the 6502 code for your driver programs. If 
you wish to attach more than one driver to the system you must assemble 
the files separately and combine them into a single file using the LIBRARY 
program found on the AppleS: diskette. Typically you would copy your first 
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driver into slot #0 of the ATTACH.DRIVERS file, your second driver 
would be copied into slot # 1 , etc. . This facility lets you attach drivers written 
by Other venaors to your drivers oS w^^u ah ^vj^xiiyxxxc ^^^^.^^^ .-v^^^^* — _^ 
different vendors into a single ATTACH.DRIVERS file. 

The ATTACH.DATA file is read by the SYSTEM.ATTACH program to 
determine what drivers must be patched into the system. ATTACH.DATA 
is created by executing the ATTACHUD.CODE (attach user device) pro- 
gram found onthe disk distributed by the International Apple Core. After 
X)ecuting ATTACHUD.CODE you wUi be given the prompt: 



Apple Pascal Attaohud [1.13 
Enter name of attach data file: 



You should respond with the name of the output file foUowed by return. 
Unless you already have an ATTACH.DATA file on the disk and you don't 
want to delete it you should enter ATTACH.DATA to this prompt. This 
wiU cause the ATTACHUD.CODE program to write the data out to the 
ATTACH DATA file for you. If you make some sort of error while entermg 
data into the ATTACHUD program ATTACHUD will prompt you to re- 
enter the data. 

The next two prompts will ask you if your driver can reside in the HIRES 
graphics pages. First you will be asked if your driver(s) wiU ever use the 
$2000..$3FFF (page one) HIRES page. If you answer no then SYS- 
TEM ATTACH will assume that the driver can be loaded into the HIRES 
graphics page. The second question asks you if if the driver wiU ever be 
used with the HIRES page two memory buffer. Answering no will inform 
the SYSTEM.ATTACH program that your driver can be loaded into the 
$4000. i47FFF memory range. 

Answering no to either of diese questions will allow the SYS- 
TEM.ATTACH program to load your drivers into the HIRES graphics 
memory buffers. This can produce disastrous results if the user attempts to 
use HIRES graphics while your drivers are in memory On the other hand, 
if you answer yes to these questions and HIRES graphics are never used, 
eight to sixteen kilob)tes of user memory will be removed from the system. 
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This IS a considerable chunk of memory to lose to an already-starved system 
Careful thought must go into die answer of diis question. Perhaps you 
should create two systems: one for an execute-only environment where you 
will be executmg programs using tiie Turde Graphics package; and one for 
systems which wiU not be using die graphics system. It should be pointed 
out that most drivers are quite smaU and will never be big enough to encroach 
on die HIRES memory space anyway But keep in mind diat if you attach 
several drivers, especiaUy drivers from different vendors, your drivers may 
go beyond die (approx.) four kilobyte limit. 

The next question you will be asked is die name of die driver The name 
you should enter is die name of die assembly language program. This is die 
name foUowmg die .PROC pseudo opcode at die beginning of your driver 
program. If you hit return at diis point die ATTACHUD program wiU 
termmate widiout creating die ATTACH.DATA file. After you enter die 
driver name you wiU be asked which unit numbers should refer to die 
specified device driver. Valid unit numbers are 1, 2, 4 12 and 128 143 
Entering a number outside diis range will produce an 'error message' 
Attemptmg to attach a character oriented unit (1, 2, 6, 7, or 8) to a to die 
same driver a block oriented device is attached to also produces an error 
message. 

The next question ATTACHUD asks you is if you would like die unit to 
be imtiahzed at boot time. If you answer yes, die init entry point will be 

tIt^t^^t'.^J^'^™-^^^^™ P^°S^^- If >^«" ^^^^r "o then die caU 
to UNITCLEAR (which calls dien init entry point) will not be made. 

After answering yes or no to die initialization question you will be asked if 
you want anodier unit number to refer to diis device driver. This aUows you 
to connect two umts to die same device driver. For example, if your software 
m^es considerable use of die PRINTER: unit and you wish to instaU your 
software on a system widiout a printer you could attach unit number six 
(die prmter) to die CONSOLE: unit so diat all output goes to die screen 
mstead of die prmter (which would cause a unit offline error). If you answer 
yes to diis question you will be asked die number and whedier or not you 
want It mitialized. If you already told die system to initiaUze die driver 
there s no sense in having it re-initialized here. 
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When you answer no to the "another unit number" question you will be 
asked if you want the driver to start on a certain byte boundry If your driver 
needs to be byte-aligned you should answer yes, normally you should simply 
answer no. 

Finally you will be asked if you want to attach another driver to the system. 
If you answer yes the program will be repeated, otherwise the program will 
terminate saving your data file to diskette. Each driver you attach must be 
present in the ATTACM,DRIVERS file. The individual drivers must be 
linked together using the LIBRARY program as previously mentioned. 
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V. 



Appendix 

ATTACH-BIOS Document 
for Apple II Pascal 1 . 1 



By Barry Haynes 
Jan 1 2, 1 980 

This dcKument is intended for Apple II Pascal internal applications writers, 
Vendors and Users who need to attach their own drivers to the system or 
who need more detailed information about the 1.1 BIOS. It is divided into 
two sections, one explaining how to use the ATTACH utility available 
through technical support and the other giving general information about 
the BIOS. It is a good idea to read this whole document before assuming 
something is missing or hasn't been completely explained. This document 
is intended for more advanced users who already know a fair amoimt about 
I/O devices and how to write device drivers. It is not intended to be a simple 
step by step description of how to write your first device driver, nor does 
it claim to be a complete description of all there is to know about the Pascal 
BIOS. 

The Apple Pascal UCSD system has various levels of I/O that are each 
responsible for different types of actions. It was divided at UCSD into these 
levels to make it easy to bring up the system on various processors and also 
vMotis'cSfifiluiraEiSM of the §affie pfocess'or and yet have things took the 
same to the Pascal level regardless of what was below that level. The levels 
are: 
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LEVEL TYPES OF IP ACTIONS 

Pascal READ & WRITE 

BLOCKHEAD & BLOCKWRTTE 
UNITREAD & UNITWRITE 
UNITCLEAR 
UNTTSTATUS 

RSP (Runtime Support Package) This is part of the interpreter and is 

the middle man between the above 
types of I/O and the below types of 
I/O. AH the above types are translated 
by the compiler and operating system 
into UNITREAD, UNTrWRITE, 
UNITCLEAR and UNTTSTATUS if 
they are not akeady in that form in 
the Pascal program. The RSP checks 
the legality of the parameters passed 
and reformats these calls into calls to 
the BIOS routines below. The RSP 
also expands DLE (blank suppres- 
sion) characters, adds line feeds to car- 
riage returns, checks for end of file 
(CTRL C from CONSOLE:), mon- 
itors UNTTRW control word com- 
mands, makes calls to attached devices 
if present, echoes to the CONSOLE:. 

BIOS (Basic I/O Subsystem) This is the lowest level device driver 

routines. This is the level at which you 
can attach new drivers to replace or 
work with the regular system drivers 
and also attach drivers for devices that 
will be completely defined by you. 
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I. RECONFIGURING THE BIOS TO ADD YOUR OWN 
DRIVERS USING THE AHACH UTILITY 

INTRODUCTION 

With the Apple Pascal 1.1 System (both regular and runtime 1.1), there is 
an automatic method for you to configure your own drivers mto the system 
This method requires you to write the drivers foUowmg certam rules and 
-to use the programs irXAGHUD-CODE and SYSTEM.ATTAGH pro- 
vided through Apple Technical Support. At boot time, the mitiaUz^on 
nart of SYSTEM PASCAL looks for the program SYSTEM.ATTACH on 
die'boot drive. If it finds SYSTEM.ATTACH, it Xecutes it before Xeoit- 
ing SYSTEM.STARTUP SYSTEM.ATTACH will use the files 
ATTACH.DATA and ATTACH.DRIVERS which must also be on the 
boot disk ATTACH.DATA is a file the developer wlQ make using the pro- 
gram ATTACHUD. It tells SYSTEM.ATTACH the needed information 
about the drivers it wiU be attaching. ATTACH.DRIVERS is a file con- 
taining aU die drivers to be attached and is constructed by the developer 
using the standard LIBRARY program. The drivers are put on the Pascal 
Heap below die point diat a regular program can access it. They do take 
away Stack-Heap ( = to the size of die drivers attached) space from that 
available to Pascal code files but diis should not be a problem unless the 
drivers are very large or die code files very hungry in dieir use of memory. 
Since diese drivers are configured into die system after die operatmg system 
starts to run, diis mediod wiU not work for configuring drivers for/tevices 
diat die system must cold boot from. Some of supportmg code m die RSI, 
boot and Bios may make die task of bringing up boot drivers easier diough. 
The advantages to this kind of setup are: 

1 Software Vendors can use die ATTACHUD program to put dieir 
own drivers into die system at boot time. This wiU be mvisible to die 
user. _ 

2 There can be no problems losing drivers due to improper heap man- 
' agement since die drivers are put on die heap by die operating system 

and before any user program can allocate heap space. 

3 This mediod does not freeze parts of die system to special memory 
locations since it enforces die clean mediodology of using relocatable 
drivers. 
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USING ATTACHUD 

ATTACHUD.CODE will ask you questions about the drivers you want to 

cvSjf.l'i^r^"'- ^' ""^^^ ^ ^^ ^^^^ ATTACH.DATA which teUs 
5Yi>lliM.ATTACH which drivers to attach to the system, what unit num- 
b^s to attach them to and other information. The options covered by 

1. A driver can be attached to one of the system devices, then all FO to 
tills device (PRINTER: for example) wiU go to tiiis new driver In 
tile case of a new driver for a disk device tiie user will have to specify 
which of tiie 6 standard disk units will go to tiiis new driver. This wiU 
allow replacement of standard drivers witii custom ones witiiout hav- 
mg to restrict tiie I/O interface to UNITREAD and UNITWRITE 
as is the case with option 2. 

2. A driver can be attached to one of 16 userdevices. I/O to Hhes^ will 
be done witii UNITREAD and UNITWRITE to device numbers 
128-143. 

3. A metiiod wiU be included to allow tiie attached driver to start on an 
N byte boundry The driver writer will be responsible for aligning his 
code from that point. 

4. More tiian one unit can be attached to tiie same driver. This way only 
one copy of tiie driver resides in memory and I/O to all tiie attached 
umts goes to tiiis one driver. It is up to tiie driver to decide which 
umt's I/O It IS doing. How tiiis is done is explained below. 

5. The initialize routine for any attached driver can be called by SYS- 
TEM.ATTACH after it has attached tiie driver and before any pro- 
grams can be Xecuted. ^ 

^' iTxfn^^r^T^^u''' 5'°^"^' ""'^ "^^ ^''^' P"g^^' y«" ^^ specify in 
Al lACHUD tiiat drivers must not be put on tiie heap over tiiese 

areas. Your drivers would have to be quite large before tiiey could 
possibly overiap the Hires pages. 
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Follow through this example of a session with ATTACHUD where the 
options available are completely described. First Xecute ATTACHUD: 

You will be given the prompt: 

Apple Pascal Attachud [1.1] 
Enter name of attach data file: 

This is asking for what you waiit the output file firomtiiis session with 
ATTACHUD to be called. You could call it ATTACH DATA or some other 
name and then rename it to ATTACH.DATA when you put it on the boot 
disk with SYSTEM.ATTACH. 

If you ever get a message of the form: 

ERROR = > some error 

Try again (RETURN to exit program) : f 

then just retype what was requested on the previous prompt after deciding 
what mistake you made while typing it the first time. 

The next prompt is: 

These next questions will determine if attached drivers can reside in 
the hires pages. It will be assumed they can for the page in question 
if you answer no to the prompt for that page. 
Will you ever use the (2000.3FFF hex) hires page? 

Followed by: 

Will you ever use the (4000.5FFF hex) hires page.> 



You should answer yes to the question for a particular Hires page if you 
will ever be rimning a program that uses that Hires page while the drivers 
are Attached. You don't want the possibility of your driver residing in the 
Hires page if that page will be clobbered by one of your programs. After 
answering the Hires questions you will be asked the following questions 
once for each driver you will be attaching: 
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What is the name of this driver? This nnist be the .PROC name in its 
assembly source (RETURN to exit program): 

This must be the name of one of the drivers in the ATTACH.DRIVERS 
that will be used with this ATTACH.DATA. The length of this name must 
not be more than 8 characters. After entering the name you will be asked: 

Which unit numbers should refer to this device driver? 

Unit number (RETURN to abort program): 

You must enter a unit number in the range 1,2,4.. 12,128.. 143 or will be 
given an error message. You cannot attach a character unit (CONSOLE:, 
PRINTER: or REMOTE:) to the same driver as a block structured unit 
and if you try you will be given the message: 

You can't attach a character unit and a block unit to the same driver. I 
will remove the last unit# you entered. Type RETURN to continue: 

If you don't get the above error, you will be asked: 

Do you want this unit to be initialized at boot time? 

A yes response will put the unit number just entered on a list of units that 
SYSTEM.ATTACH will caU UNITCLEAR on after attaching aU the driv- 
ers. This gives you a way to have the system make an initialize call on your 
attached unit at boot time. A no response will mean that no boot time init 
call will be made on this unit to the driver you just attached. 

You wiU be eventually asked: 

Do you want another unit number to refer to this device driver?: 

A yes response will get you to the Unit number prompt again and a no 
response will get you to the prompt: 

Do you want this driver to start on a certain byte boundary? 
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A yes here will give you more prompts: 

The boundry can be between and 256. 

0= >Driver can start anywhere. (default) 

8 = > Driver starts on 8 byte boundary. 

N= >Driver starts on N byte boundary 
256= > Driver starts on 256 byte PAGE boundary. 
Enter boundary (RETURN to exit program): 

And the last line of the prompt will repeat until you enter a boundary in 
the correct range. The boundary refers to the memory location where the 
first byte of the driver is loaded. If your driver needs to be aligned on some 
N byte boundary you can assure it will be using this mechanism, if you 
know how the driver's origin is aligned, You can align internal parts of your 
driver however you want. Finally you will get to the prompt: 

Do you want to attach another driver? 

And if you answer Yes to this you will return to the 'What is the name of 
this driver' prompt and answering No will end the program, saving the data 
file you have made. 



THE DRIVER 

Drivers must be written in assembly using the Pascal Assembler. They must 
not use the .ABSOLUTE option, so the drivers can be relocated as they are 
brought in by the system. Each driver must be assembled separately with 
no external references. When all drivers are assembled, use the LIBRARY 
program (in the same way you would use it to put units into a library) to 
put all the drivers in one file. Name this file SYSTEM.DRTVERS. See 
liirthef HplaiiMoh of m^ing SYSTEM.DKIV^ 

Considerations for all drivers: 

1 . Study the examples below as certain information is only documented 
there. 
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2. Refer to the Apple II Pascal memory map below and you will see 
that parts of the interpreter and BIOS reside in the same address 
range and are bank-switched. The system automatically folds in the 
BIOS for drivers added using ATTACH. Most of these drivers will 
have to make calls to CONCK if they want type ahead to continue 
to work properly CONCK is the BIOS routine that monitors the 
keyboard. See the example drivers below to be sure you are doing 
this correctiy You cannot call CONCK through the CONCK vector 
at BFOA (see BIOS part of this document) because this call would 
go through the same mechanism used to get to your driver and the 
return address to Pascal would be lost. 

3. All attached drivers must be written with one common entry point 
for read, write, init and status. The driver will use the Xreg contents 
to decide which type of I/O call this is and jump to the appropriate 
place within it's code. The Xreg is decoded as follows: 

->read (no bits set) 

1 --> write (bit set) 

2 -->init (bit 1 set) { The Pascal statement 

UNITCLEAR(UNITNUMBER); makes an init caU 
for unit UNITNUMBER } 
4 --> status (bit 2 set) 

4. The drivers must also pop a return address off the stack, save it and 
later push it to do a RTS when the driver is finished. All other 
parameters must be removed from the stack by the driver. For all 
calls, the return address will be the top word on the stack. 

5 . SYSTEM. ATTACH will make a copy of the normal system jump vector 
(the vector after the fold) and put this on the heap. There will be a 
pointer to this veaor at 0E2. Your drivers can use this vector to get to 
the normal system drivers for device numbers 1..12. See example below. 

6. All drivers must pass back a completion code in the X register corre- 
sponding to the table on page 280 of die 1. 1 "Apple II Apple Pascal 
Operating System Reference Manual". 
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7. In references below to parameters passed on the stack, all parameters 
are one word parameters so they require two bytes to be popped from 
the stack by the driver. 

8. Control word format for Unitread & Unitwrite 

bits 15..13 12..6 5 4 3 2 1..0 

user reserved type B type A nocrlf nospec reserved 

defined for fixture chars chars for fiiture 

fimctioiis expansion expansion 

. T> _ n -^c.™*^ „,;n ^u^^u c^^ r^TTT) t c «^ t; A.^.^ 

Lyuc JO — u — — ^-"oyan-iii win ciiv^wa. iwi vjx j.\_i_( \j wc x ahjui 

CONSOLE: during the time of this Uni- 
tiocall. 

= 1 = = >System will not check for CTRL S & F 
during this Unitio. 
type A = = = >If using Apple Keyboard, system will 
check for CTRL A, Z, K, W & E from 
CONSOLE: during the period of this 
Unitio. 

= 1 = = >System will not check for the chars dur- 
ing this Unitio. 
nocrlf = = = >line feeds are added to carriage returns by 
the Literpreter. 

= 1 = = >no line feeds are added ... 
nospec = = = >DLE's (blank suppression code) are 
expanded on output and the EOF char- 
acter is detected on input. 

= 1 = = >nothing special is done to DLE's on out- 
put and EOF on input. 

default setting for all control word bits = 0. 

9. Control word format for UNTTSTATUS 

bits 



15..13 


12..2 


1 





user 


reserved 


for 


direction 


defined 


for fiiture 


purpose 
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direction = = 
= 1 = 

purpose =0 = 
= 1 = 



= >Status of output channel is requested 
= > Status of input ... 
= >Call is for unit status 
= >Call is for unit control 



10. These are the new vectors and routines added to the BIOS to make 
attach work. The RSP, bootstrap, and readseg were also modified to 
allow for attaches. 



UDJMPVEC iJutnp vector for user deyicesf offset = => unattached 
ideuice. The correct addresses are initialized by 
? SYSTEM. ATTACH . See locations section of BIOS part below 
>for pointers to this vector. 

JMP ;Unit 128 

JMP iUnit 129 



JMP !Unit 143 



DISKNUM 



If hish 
device 
else 
if hish 
device 
else 
driver 
SYSTEM, 
word. ( 
PSUBDR 
PSUBDR 
See loca 
this vec 
.UORD 
.UORD 
.MORD 
.MORD 
.MORD 
.MORD 
.UORD 
.UORD 
.UORD 
.UORD 
.UORD 
.MORD 



byte=FF then 

is not a disk drive 

byte=0 then 
is a resular disk drive and low byte=drive » 

for this disk drive has been attached by 

ATTACH and the driver address is stored in this 

Driver address has to be the address-1 for RTS in 

to work correctly» remember this for ATTACH. 

is listed below. ) 

tions section of BIOS part below for pointers to 

to r. 



0FFFF 

0FFFF 

0FFFF 



1 

0FFFF 

0FFFF 

0FFFF 

4 

5 

2 

3 



Unit 
Unit 
Unit 
Unit 
Unit 
Unit 
Unit 
Unit 
Unit 
Unit 
Unit 
Unit 



• 1 

• 2 
«3 
»4 
«5 
«6 

• 7 
«8 
«9 
ttl0 

• 11 

• 12 



(ATTACH would modify the words 
for units a t5 »S. . 12 if a 
different disk driver were 
attached to any of them) 
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UDRWIS jRoutine to Set to an attached driyer throush UDJMPyEC 



iAssume unit« in Ares & 
iSee the Jump Mector in 
isct tu this routirie* 

STA TTl 

AND wTF iClear top 

STA 

ASL 



operation to be perforined in Xres. 
the BIOS sections to see hou you 



bit of unit* 
TT2 .MaKe address in UDJMPMEC table 
A iAddress=Are3»3 + base of table 



CLC 

ADC TT2 ?Now we have (AreS»3). 

ADC «jyECTRS JAdd in low b/te of base of table hauins 

STA TT2 jno carry problem with only IG UD's. 

.LDA,„.'.«0',: '...'.. .' _.' „., 

ADC JVECTRS+1 IJVECTRS is a word pointins to the base 

!of UDJMPyEC. 
STA TTZ+1 
LDA TTl 
JMP STTZ 



PSUBDR iRoutine to Set to an attached driver 

!We assume on entry* AreS=unit«f 

joffset 8c Xre3 = the command to be 

•substituted disk driver. 

ilSee the Jump vector in the BIOS 

jyouset to this routine. 

STA TTl 5Save unit*. 

LDA DISKNUM-1»Y 5Store MSB of driver 

PHA 

LDA DISKNUM-2.Y !Store LSB of driver 

PHA LDA TTl JRestore unit* to AreS. 

RTS iJuMP to substituted driver. This 
ithe driver address in DISKNUM = 
;(ADDRESS OF DRIUER)-1 for the RTS 



throush DISKNUM 
YreS=DISKNUM 
performed by the 

sections to see how 



address, 
add ress . 
assumes 
to uorK 
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Special Considerations when Attaching 
Drivers for the System Devices, 
Unltnumbers 1..12. 

A. Character Oriented Devices (Pass the character to be read-written in the 
A-register and make Bios calls one character at a time from RSP level. 
On entry, the unit number will be in the Y register in case you wanted 
to attach all character oriented devices to the same driver). If you attach 
REMOTE: & or PRINTER: to the same driver as CONSOLE:, all 
will have their jump vectors pointing to the start of the driver + 3 bytes. 
See fiirther discussion on this below. 

Units 1 & 2 (CONSOLE: and SYSTERM:) 

1. These must both go to the same driver. 

2. The system CONCK routine will be patched to jump to the start of 
the driver. The CONCK routine gets characters entered at the key- 
board and fills the type ahead buffer. See the example CONSOLE: 
driver below. 

3. Because of item 2, the entry point for normal calls (not CONCK 
calls) to the attached driver will be 3 bytes beyond the start of the 
driver. 

4. The interpreter takes care of expanding blank suppression codes 
(DLL's), echo to the screen, EOF (the end of file character), and 
adding line feeds to every carriage return. Your driver doesn't need 
to do this. 

5. CONSOLE: read and write have only the return address on the 
stack. The stack for CONSOLE: init looks like: 



POINTER TO BREAK VECTOR (This should be stored 

at location BF 16.. BF 17 
by CONSOLE: init.) 
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POINTER TO SYSCOM (This should be stored 

at location F8..F9 by 
CONSOLE: init.) 
(Also at init time, the 
Flush and Start/Stop 
conditions should be set 
to normal and the type- 
ahead queue should be 
emptied.) 

RETURN ADDRESS <--TOS (top of stack) 



The stack for CONSOLE: status looks like: 

POINTER TO STATUS RECORD 
CONTROL WORD 
RETURN ADDRESS <--TOS 

6. A status request should return, in the first word of the status record, 
the number of characters currently queued in the direaion asked for. 
This is the number of characters in the type-ahead buffer. If no type- 
ahead is being used then output status should always return a and 
input status a I if a char is waiting to be read, otherwise a 0. 

7. Since we are using 7 bit ASCII codes, the CONSOLE: read routine 
should zero the high order bit of all characters it reads from the 
keyboard and passes back to Pascal ( to the RSP ). The CONSOLE: 
write routine should transfer all 8 bits as received from the RSP since 
many devices use 8 bit control codes. 

8. The RSP will send both upper and lower case chars to the CON- 
SOLEt write routine. T1iewi±e fotlfflie shotildiiiap^e Ibwef to 
upper if the device cannot handle lower case. 
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9. CONSOLE: Output Requirements: 

A. CR (OD hex) A carriage return should move the cursor to the 
beginning of the current line. 

B. LF (OA hex) A line feed should move the cursor to the next hne 
but not change the column position. If the cursor is on the last 
line on the screen when a line feed is sent, the rest of the screen 
should scroll up one line and the bottom line be cleared. 

C. BELL (07 hex) A sound should be made if possible when the 
CONSOLE: gets 07. If making a sound is not possible then 
ignore the 07. 

D. SP (20 hex) Place a space at the current cursor position over- 
writing whatever is there. Move the cursor to the next column. 
If the cursor is on the last column of a line, it is best if the cursor 
stays where it is after the space fills that position. If the cursor is 
on the last column of the last line on the screen, it is also best if 
the cursor remains in that position and the screen does not scroll. 
These are the prefered actions of the cursor at end of line & end 
of screen; in the strict sense, the actions of the cursor in these 
circumstances are undefined. 

E. NUL (00 hex) When a Null is sent to the CONSOLE: from the 
RSP, the CONSOLE: should delay for the ammount of time 
required to write one character but die state of the screen should 
not change. 

E All printable characters should be written to the screen and the 
cursor should move in the same way it does for SP. 

G. See the discussion on pages 199-2 1 5 in the 1 . 1 Operating System 
Reference Manual for fiirther requirements and information. 
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10. CONSOLE: Input Requirements: 

A. The RSP takes care of echoing characters to the screen typed 
from the CONSOLE: keyboard, (below items optional The Start/ 
Stop, Flush & Break chars are redefinable; see 9G above for more 
info.) 

B. The Start/Stop charaaer is detected by CONCK and is used to 
stop all processing until the character is received a second time. 
When the character is received (see 9G above for more info) one 
should loop in CONCK continuing to process other characters 
imtil: 

1. the S/S char is received again 

2. the Break char is received 

Li case 1, the suspended processing should continue as it was 
before the first S/S was typed. Action needed for the Break char 
is described below. The S/S char is never returned to the RSP 
and CONSOLE: type-ahead, if implemented, should continue 
during the suspended state. Offset from SYSCOM to this char 
is 85 decimal. (This and the next 2 chars are redefinable by the 
Setup program and SYSCOM is the system area that keeps track 
of this info. The pointer to the start of SYSCOM is passed to 
the CONSOLE: init routine and is stored at F8..F9 hex.) 

C. The Flush character will stop all output and echoing to the CON- 
SOLE: until it's second occurEnce (see 9G above). CONCK 
detects this and must set a flag to tell the CONSOLE: output 
routine to ignore characters while the flag is set. If the CON- 
SOLE: is re-initialized or a Break char is received, the flush state 
should be turned off. Flush is never returned to the RSP. Flush 
only stops CONSOLE: output, other processing continues. Off- 
set from SYSCOM to this char is 83 decimal. 

D. The Break char should cause CONCK to jump to the location 
stored at BF16. This location is also passed to the CONSOLE: 
init routine which stores it at BF16. The break char is never 
returned to the RSP and it should remove the system from Stop 
or Flush mode if it is in either mode. Ofl&et from SYSCOM to 
this char is 84 decimal. 
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E. Type-ahead should be implemented in CONCK by storing char- 
acters typed at the keyboard in a queue imtil they are requested 
by a CONSOLE: read from Pascal. When the queue fills, further 
characters should be ignored and a bell sounded when they are 
typed. The length of the queue should be at least 20 characters. 

11. For more information on CONSOLE: requirements, see pages 199- 
216 of the 1.1 Operating System Reference Manual. 

Unit 6 (the PRINTER:) 

1. The interpreter takes care of expanding blank suppression codes (DLE's), 
EOF (the end of file character), and adding line feeds to every carriage 
return. 

2. PRINTER: read,write and init have only the return address on the 
^LcicK. i'ivii.>i X xiiv; stdtuii nas oic same items on tne stacK as L/IJUN- 
SOLE: status. PRINTER: init should cause the PRINTER: to do a 
carriage return and a line feed and throw away any chararters buffered 
to be printed. No form feed should be done. 

3. For status, return in the first word of the status record the number of 
bytes buffered in the direction asked for; if this cannot be determined 
by your PRINTER:, return a 0. 

4. The PRINTER: write routine must buffer a line and send it all at 
once if your PRINTER: can only receive data that way. 

5. Line Delimiter characters: 

A. CR (hex OD) A carriage return should cause the PRINTER: to print 
the current line and return the carriage to the first column. An auto- 
matic line feed should not be done by the PRINTER: driver when 
it reads a CR. 

B. LF (hex OA) The RSP wiU send line feeds to the PRINTER: driver 
after each carriage return. This should cause the PRINTER: to advance 
to the next line. If the PRINTER: must also do a carriage return 
when it is given a line feed, then this is O.K. 
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C. FF (hex OC) This should cause the PRINTER: to move the paper 
to top of form and do a carriage return. If top of form is not possible 
on your PRINTER:, do a carriage return foUowed by a line feed. 

6. It is assumed that input cannot be received from the PRINTER:. See 
the BIOS section for a discussion of how to get input from the PRINTER- 
Normally, trying to get input from the PRINTER: should return com- 
pletion error code #3. 

Units 7 f REMOTE: in\ R. R ippiuidtc- i-kn*! 

1. These must both go to the same driver. 

2. The interpreter takes care of expanding blank suppression codes (DLE's), 
EOF and adding line feeds to every carriage return. 

3. Same stack setup as the PRINTER:. 

4. Status should return in first word of status veaor the number of bvtes 
buffered for the direction specified in the control word, if wu have 
no way to check. 

5. This unit is supposed to be an RS-232 serial line for many different 
applications so it is necessary that it transfer the data without modi- 
fymg It m any way The transfer rate default is 9600 baud. 

6. It would be nice if die input to REMOTE: could be buffered in die 
same way mput to the CONSOLE: is but this is not an absolute 
requirement. 

7. RflViaTE: ink shotiW set up the REMOTE; device so it is ready 
to read and write. 
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B. Block Structured Devices 

Units 4 (tlie boot unit),5,9J0J 1,12. 

1. These units are assumed to be block structured devices, the drivers 
for these units must do their own Pascal Block to Track-Sector 
conversions. 

The UCSD system assumes the disk device is a 0-based consecutive 
array of 512 byte logical blocks. All UCSD Pascal disks must have 
this logical structure no matter what their actual physical structure or 
size are. The physical allocation schemes for information on different 
types of disks are arranged with sectors that are of various sizes that 
depend on the hardware of the particular disk device used. The driver 
must convert the Pascal block # to the appropriate track & sector # 
of where that block is stored on it's disk device. This could be a floppy 
or nara qisk or some uuxci l^^ kjs. uwh.^. At viww.ix ^ i.»-ci^^ ixA»»..^^», — 
long as your driver maps die Pascal Block to the correct place and 
continues to do so for the length (byte count) required for the UnitIO 
operation. 

The Pascal system uses logical blocks & 1 for its bootstrap code. 
These logical blocks should not be used for anything else and should 
therefore only be available to Pascal through direct UNITREAD & 
UNITWRITE operations and not accessable by the system through 
any other means. This document will not attempt to describe the boot 
sequence & does not attempt to give you enough information to attach 
another driver or device to unit #4: so you can cold boot from that 
unit. When a UNITWRITE is done to disk where the byte count 
MOD 512 is not equal to ( this means the last block included in 
the write would be partially written to according to the byte coimt), 
it is undefined whether garbage is written into the remaining part of 
this last block. So you may write a whole block anyhow if that is more 
efficient and the Pascal system will not suffer any bad consequences. 

When a UNITREAD is done from a disk you are not allowed to 
overwrite into the unused part of the last block (if there is an unused 
part due to byte count MOD 512 <> 0). You must only send the 
number of bytes asked for because you could clobber memory having 
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some other valid use if you wrote extra bytes. You will have to buffer 
the last sector inside your disk read routine then transfer exactly the 
number of bytes from this last sector needed to add up to the total 
bytes requested. 

2. The unit number will always be in the A register. 

3. The stack setup for read and write is: 

CONTROL WORD (The MODE parameter mentioned in the 

1.1 Language Ref Manual on page 41) 
DRR^ NUMBER 
BUFFER ADDRESS 
BYTE COUNT 
BLOCK NXTMBER 
RETURN ADDRESS <--TOS 

For init there is only the return address on the stack and for status the 
setup is the same as for the CONSOLE:. 

4. Status requests should return the following in the status record: 

wordl : Number of bytes buffered in the direction asked 
for in the control word. Return if you have no 
way of checking. 

word2:Number of bytes per sector. 

words :Nimiber of sectors per track. 

word4: Number of tracks per disk. 

C. Other 
Unit 3 

1. This unit has no meaning for the Apple II system except that UNIT- 
CLEAR on this unit sets text mode. 

Considerations when attaching drivers for user defined devices numbers 
128-143. 
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These unit numbers are provided for you to do whatever you want with 
them, you can define what they do except for the following protocols. 

1. Follow the considerations for all drivers listed above. 

2. The unit number will always be in the A register. 

3. The stack setup for read and write is: 

CONTROL WORD 
DRIVE NUMBER 
BUFFER ADDRESS 
BYTE COUNT 
BLOCK NUMBER 
RETURN ADDRESS <--TOS 

For init there is only the return address on the stack and for status the 
setup is the same as for the CONSOLE:. 

This is a sample driver for a user defined device 

jLocations 0..35 hex may be used as pure temps. One 
jshould newer assume these locations won't be clobbered 
;if you leave the enuironment of the driuer itself. 
;("leaMin3" includes calls to CONCK ) . 

CONCKADR .EOU 02 

jOnly one . PROC may occur in a driueri each driuer to be 
iATTACHED must be assembled separately usins the Pascal 
Jassembler and can have no external references. 

.PROC U128DR 

STA TEMPI ;SaMe Area contents (unit*) 

PLA 

STA RETURN 

PLA 

STA RETURN+1 

TXA iUse the X res to tell you what kind of 

!call this is. 
CMP «2 
BEO INIT 
CMP *a 
BEO STATUS 
CMP «0 
BEO PMS 
CMP *l 
BEO PMS 

SCould haue error code here 
JMP RET 
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PMS PLA iGet the parameters 
STA BLKNUM 
PLA 

STA BLKNUM+1 
PLA 

STA BYTECNT 
PLA 

STA BYTECNT+1 
PLA 

STA BUFADR 
PLA 

STA BUFADR+1 
PLA 

STA UNITNUM rflTrso" rntEMPl 
PLA 

STA UNITNUM+1 sShould always be 
PLA 

STA CONTROL 
PLA 

STA CONTROL+1 
TXA 
BNE WRITE 

READ JSR GOTOCK 

SYour driver's code for a read 

i(If more than one unit were attached to this drii.ier> 

ithis code could Jump to various places depending on the 

ioontents of the Area stored in TEMPI) 

JMP RET 

WRITE JSR GOTOCK 

lYour driver's code for a write 
JMP RET 

?If you wanted to call CONCK whenever your device did a 
Jread for write* you would use this routine: 
CKR .WORD CONCKRTN-1 
GOTOCK LDY «55. SOffset to address of CONCK 

LDA @0E2tY 

STA CONCKADR 

INY 

LDA eeiEZ.Y 

STA CONCKADR+1 

LDA CKR+1 ;Set it up so you return to CONCKRTN after 

PHA ;the CONCK call. 

LDA CKR 
■■• Pffff ' * 

JMP eCONCKADR iJump to CONCK 
CONCKRTN RTS iReturn to caller, 

INIT iYour driver's code for init 
JMP RET 

STATUS PLA 

STA CONTROL 
PLA 
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STA CONTRDL+1 

PLA 

STA BUFADR lAddress of status record. 

PLA 

STA BUFADR+1 

jYour driver's code for status 

RET LDA RETURN+1 
PHA 

LDA RETURN 
PHA 

LDA TEMPI 
RTS 

RETURN .MORD iCan't use pade for these since ue leave 

TEMPI .WORD »our etmi ronwent when soini to CONCK . 

CONTROL .WORD 

UNITNUM .WORD 

BUFADR .WORD 

BYTECNT .WORD 

BLKNUM .WORD 

.END 



This is a sample driver for a CONSOLE: driver 
replacement 



ROUTINE .EOU 02 
TEMPI .EOU 0a 



.PROC CKATCH 

JMP CONCKHDL JSYSTEM . ATTACH will patch the 

;to Jump here when you attach 

;the CONSOLE:. 



start of CONCK 
a driver to 



STA TEMPI 



)We are not poppins the return address from 
ithe stacK cause we'll return from the 
^system routine we call from this driver, 
if^ll the read fwri te >ini t and stat calls will 

iJump here (the startina address of your 

;CONSOLE: driver+3). 



STY TEMPl+1 

TXA 

!This example shows you how to have your 
iown C3de for the CONSOLE: as well as usind 
Jthe sv-stem CONSOLE: routines. If you want 
!to replace the system routines completely* 
jyou need to pull the return address here. 
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BEQ READ 

CMP «1 

BEO WRITE 

CMP «2 

BEO INIT 

CMP «a 

BEO STATUS 

sError code here 

READ (Your driuer's code for a read 

LDY «1 loffset to address of CONSOLE: read in 
Sthe copy of the Jnip vector made by 
iSYSTEM. ATTACH. See the Jump yeotors in the 
;BIOS section below to see how we iat the 
5of f sets. 

BNE GET 

!You would haue a JMP RET here (see exawple for user 

defined 

idegice) if you were not usind the system CONSOLE; 

routines 

las well. 

WRITE lYour driver's code for a write 
LDY «a 
BNE GET 

INIT fYour driyer's code for init 
LDY «7 
BNE GET 

STATUS 5Your driver's code for status 
LDY «43. 

GET LDA i0E2.Y >At E2 is a pointer to the copy of the 

iJump vector made by SYSTEM. ATTACH before 
Sit was modified to attach your drivers. 

STA ROUTINE 

I NY 

LDA @0E2.Y 

STA ROUTINE+1 

LDY TEMPl+1 iRestore resisters 

LDA TEMPI 

JMP iRQUflNE iGo to the original COhlSOLE: driver for 

this 

!I/0 command. You will return from there! 

the 

iBIOS is already folded in cue to the way 

your 

idriver was attached by SYSTEM. ATTACH. 
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CONCKHDL PHP JDuplicate the 1st three instructions of CONCK 
PHA las they were patched by SYSTEM. ATTACH to Jump 
iTXA below the Ist instruction of this driuer. 

5Here you can put the code for your own part of CONCK(you 
imay want to checK some additional device like a Keypador 
Isomethins or you may want to replace the system CONCK 
jroutine alltoSether. If you do this* you must saue therest 
!of the machine state and return it when you are finished. 
)See example below. 

TYA iSaue Yres contents for a second. 
PHA 

jThis code Sets us to the system CONCK routine. 
CLC 

LDY «55. JOffset to the address of system CONCK in the 
5copy of the orisinal Jmp vector. 

LDA SBEZ.Y 

ADC «3 !Add 3 so you enter riaht after the three 

iinstructions you duplicated at CONCKHDL. 
STA ROUTINE 
INY 

LDA @0E2fY 
ADC »0 

STA ROUTINE+1 
PLA iRestore Yres, 
TAY 
TXA tLast of CONCK instructions SYSTEM. ATTACH 

louerwrote with the Jmp to the start of 

5 this drive r . 

JMP SROUTINE 5Goto system CONCK and return from there. 
.END 
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Here is another alternative for the COIMCKHDL part of 
the above program 



CKRTN .WORD CDNCKRTN-1 

CQNCKHDL i l.If you don't care about type-ahead, this could be 
1 simply the followins code (assumins your CONSOLE: 
i read Sets a character directly from your CONSOLE; 
I device wheneuer it is called) : 



PHP 

INC RANDL JRANDL is a permanent word at BF13 used in 

itiic uUi^t in raridoM function* 
BNE $1 

INC RANDH iRANDH 
*1 PLP 
RTS 



5 2. If you want type-ahead» this code should check to 
tseeif there is a character available and stuff it into 
ia type- ahead buffer. 

! 3.1f you are usins this with the resular CONCK (extra 
;Keypadto checK fo r statist ics for example), then you can 
; do it this way . 



PHP ;Saue stale of machine 

PHA 

TXA 

PHA 

TYA 

PHA 

!Put your driver's part of CONCK here (sives your driver 
ipriority) 

LDA CKRTN+1 5Set up thinss to return from res CDNCK 

PHA 

LDA CKRTN 

PHA 

PHA iPush Sarbase to account for other pushes done 

■P-HA. -♦.!.«.. Jf-i■■^*'t-■•■1!r+^•rM^•■fry■tY'S"■o-f• COtfCK ' 

CLC JSetup to call CONCK 

LDY «55. ;Offset to the address of system CONCK in the 

!copy of the orisinal Jmp vector. 

LDA e0E2.Y 

ADC «3 ;Add 3 so you enter risht after the three 

iinst ructions you duplicated at CONCKHDL. 
STA ROUTINE 
INY 
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LDA @0E2.Y 

ADC »0 

STA ROUTINE+1 

;in this example we don't have to worry about 
ithe machine state here as we are restoring 
lit after we call CONCK 

JMP SROUTINE JGoto system CONCK and return to CONCKRTN 

CONCKRTN PLA jRestore state of machine 
TAY 
PLA 
TAX 
PLA 
PLP 
RTS ;Return to the duy who called CONCK. 



Making ATTACH.DRIVERS 

1. XcCTite the standard 1.1 LIBE-ARY nrooTam= 

2. The output code file should be ATTACH.DRIVERS or could be 
named somethine else and renamed ATTACH.DRIVERS when you 
put it on the boot disk. 

3. For the Link code file use the code file of your first driver. 

4. Copy its slot #1 into slot #0 of ATTACH.DRIVERS. 

5. As long as you have more drivers to add, use N(EW to get another 
Link code file and copy it's slot #1 into slots #2,3,... 15 of 
ATTACH.DRIVERS. 

6. When done, type 'Q' then TST' followed by a RETURN for the notice. 
See the 1.1 Operating System Reference Manual for further info on 
the LIBRARY program. 
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The Workings of SYSTEM ATTACH 

If it is on the boot disk, SYSTEM.ATTACK is Xecuted by the operating 
system (both regular 1.1 and nmtime 1.1) before SYSTEM.STARTUP. 
The 1.1 runtime system will use a runtime version of SYSTEM. ATTACH. 

The error messages that can be generated by SYSTEM.ATTACH are: 

1 ERROR = >No records in ATTACH.DATA 

2. ERROR = >Reading segment dictionary of ATTACH.DR1VERS3 

3. ERROR = > reading driver 

4. ERROR = >A needed driver is not in ATTACH.DRIVERS 

5. ERROR = >ATTACH.DATA needed by SYSTEM.ATTACH 

6. ERROR = >ATTACH.DRIVERS needed by SYSTEM.ATTACH 

If all goes well attaching drivers, SYSTEM.ATTACH will display nothing 
unusual in the regular boot sequence except for extra disk accesses and 
anything done in the init calls to any of the attached devices. 



ll.BiOS 

This section explains things in the BIOS area that are extensions and mod- 
ifications that were added to Apple Pascal version 1.1 that were different or 
not there at all in Apple Pascal version 1.0 (UCSD version II. 1). 

1. The disk routines have been modified to handle interrupts (So inter- 
rupt driven devices could be attached to 1.1 Pascal) if they are being 
used. To use interrupts, one would have to attach an interrupt driver, 
then patch the IRQ vector (FFFE hex) to point to this driver. The 
Pascal system is defined to come up with interrupts turned off so, 
once the<kiver is^M^oaght in afKi tlie^ ffi 

be turned on. The driver's init call could patch the IRQ and turn on 
interrupts. The disk routines save the current state of the system and 
turn interrupts off only during crucial time periods, the state of the 
system is returned during non crucial time periods so interrupts can 
be handled. This has not been tested at this time, so there is no data 
concerning the maximum interrupt response time delay. 
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2. The control word parameter in UNTTREAD and UNTTWRITE 
was not passed on to the BIOS level routines from the RSP level. 
This has been done in 1.1 to allow the changes to the control word 
listed below under special character checking and also so user defined 
units or attached Pascal units can use the user defined bits of the 
control word. 

3. lORESULTS 128-255 are available for user definition on user defined 
devices. 

4. UNTTSTATUS has been implemented in the Apple II Pascal 1.1 
system. This works for the Pascal system units as described in the 
ATTACH part of this document. For user defined units, Unitstatus 
can be used for whatever necessary. 

Unitstatus is a procedure that can be called from the Pascal level in 
the same way Unitread can. It has three parameters: 

1. imit#. 

2. pointer to a buffer, (any size buffer you want of type 
Packed Array of Char) 

3. control word. 

When you make a Unitstatus call from Pascal, the call should look like: 

UNITSTATUS(UNITNUM,PAC,CONTROL); 

Where UNITNUM & CONTROL are integers and PAC is a Packed 
Array of CHAR or a STRING and may be subscripted to indicate 
a starting position to transfer data to or from. See further informa- 
tion on what Unitstatus is defined to do for the various devices in 
the ATTACH part of this document. 

The control word will tell the status procedure for a particular unit 
what information about the unit you want. Bit of this word should 
equal 1 for input status and for output status. Unitstatus is imple- 
mented with bit 1 of the control word 1 meaning the call is for unit 
control. When this bit = the call is for unitstatus. In all cases bits 
2-12 are reserved for system use and bits 13-15 are available for user 
defined fimtions. 
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An entxv in the iiunp vector has been made for each of the sys- 
tem Unitstatus calls, i.e. CONSOLESTAT,PRINTERSTAT, 
REMOTESTAT,etc.. Unitstatus calls to a user defined device (128- 
143) will all go through the same jump vector location. 

5. The handling of CTRL-C by the Apple bios was non standard in 
1 The UCSD BIOS definition specifies that a CTRL-C commg 
firom REMOTE: or the PRINTER: should be placed in the input 
buffer and then no more char2«:ters should be received: Our bio^ did 
fill the buffer with nulls including the place where the CTRL-C was 
tn vo Aoole Pascal's BIOS now conforms to the standard defimtion, 
where the null filling of the buffer is done only when CTRL-C comes 
from the CONSOLE: (#1:). 

6. The unitio routines can be accessed firom assembly procedures by 
pushing the correct parameters on the stack and using the jump 
vector to get to the BIOS routine. A seperate document needs to be 
written describing how this is done and pointing out die problems 
doing it in the case of the CONSOLE :,SYSTERM:, PRINTER: & 
REMOTE: units. These problems are concerned with the special 
character handling done in the RSP for these units. The assembly 
procedures calling the pascal drivers for these units would either have 
to repeat portions of die RSP code themselves or not get the special 
character handling provided by the RSP Calling the CONSOLE: 
init routine requires pointers to syscom and the break routine to be 
passed on die stack. These pointers are now stored in a fixed location 
so assembly routines wanting to call coninit can get at diem. See die 
locations section. 

7. Suppression of Special Character Checking. 

Special characters in the Pascal sy^mi are of three types: 

A. Chars used to control die 40 character screen. These are ctrl- 
A,Z,W,E & K. 

B. Pascal system control chars for general CONSOLE: use. These 
are ctrl-S & F. 
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C. Types A & B are checked for by the CONCK fiintion in the bios 
Ihere are other special chars checked for in the RSP. These are 

?^^xS'x?P' ^^ ^^ (^^ ^^^^^ ^^ automaticaUy appended to 
CR). With UNITREAD and UNITWRITE the automatic han- 
dkng done by the Pascal system of these chararters can be turned 
ott. To turn off DLE expansion and EOF checking give bit 2 of 
the control word a value of 1 . The automatic adding of line feeds 
to carriage returns can be suppressed by setting bit 3 of the 
control word to 1. 

A way was needed to suppress special handling for types A'&'B' 

11^™.?.°"^-,^ '^""^ "" ^° "^^y^- ^^^^f' ^^ 'control word of 
UNITRAV wiU turn off checking for type A' control chars if bit 
4 IS set and will turn off checking for type 'B' chars if bit 5 is set 
Jji this mode, the special char handling will only be turned off 
durmg diat particular unitio. This will be be done for you in the 
RSP by setting bits in a bvte 'SPrRAR ' <.i- u^^^;^« dci r- ^u . 
CONCK routme will look at bit of SPCHAR and if set will 
not look for the type A' chars; if bit 1 is set, it will not look for 
the type B' chars. If you set Lhese bits in the SPCHAR yourself 
instead of letting the RSP do it through the unitio control word, 
then the associated special character checking will be turned off 
until you reboot or reset the bits again. When special char check- 
ing is turned off, die chars are passed back to the Pascal level like 
all other chars would be. You can use these added features to 
redefme the system special chars in a particular application pro- 
gram or to just disable diem. ^ 

8. The EOF char (ctrl-C) causes a lot of problems in the Pascal system 
The cause of the problems is that the editor looks for diis character 
to end many of it's editing modes. The editor has it's own getchar 
routme which reads each character die user enters from SYSTERM- 
When reading from SYSTERM: instead of die CONSOLE- die 
EOF char is passed back as any odier character but it still eni die 
current call to unitread. The editor echoes each char to die CON- 
SOLE: Itself until it comes to ctrl-C. The operating system and die 
Wer both use die getchar routine in die operating system. This rou- 
mie is defined to re-init die system if it gets a arl-C from die CON- 
SOLE: and It reads from die CONSOLE:, not SYSTERM- You 
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must be sure not to end responses with control-C except for the cases 
(in the editor only) that are supposed to end with control-C. See the 
i.i Operating System Reference Manual. 

9. The bios card recognizing section has been enhanced to recognize a 
new 'FIRMWARE' type card. This card will allow OEM's to have 
their drivers in their own firmware on the card. Routines have been 
added to allow for init,read,write & status calls to this new type card. 
This protocol has been documented and is attac^^^ as an appendix 
to this document. 

10. As you can see, the Pascal system memory usage is scattered all over 
the 64k space. The Apple II was not designed with a stack machine, 
like the Pascal P-machine, in mind. We don't need any more con- 
straints fixing certain pieces of the system to certain EXACT places. 
To make the best use of the space we have, we must have the ability 
to move things around. To achieve this goal, we intend the following: 

A. To stop people from writing things that peek here and poke there 
and expect things to stay exactly where they were for future 
versions. 

B. Various people need space for patch areas and other purposes. 
All programs have to be written so this space does not have to 
be in a permanent fixed location if this is at all possible. The areas 
reserved for system use are filling up fast, we need to avoid using 
them. You can get space dynamically using NEW but you must 
be careful that diis space stays around for the whole time you 
need it. If you are attaching a driver, you can get buffer space in 
the driver by using .W^ORD or .BLOCK in the Assembler. This 
space can be accessed firom outside the driver if you know the 
o&set to tlw^art of this space firom the stiurt erf the driver. This^ 
method could even be used to get space below the heap by attach- 
ing a driver to one of the user defined devices that is a large 
.BLOCK and is only used as a buflfer. You can get the address 
of this buffer (of a driver) from the jump vector that has a pointer 
to the driver. Pointers to all the jump vectors are in zero page, 
see the locations section below. 
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The jump vector will have a fixed order for version 1 . 1 and future 
versions. The order is the same as in the old version 1.0 with the 
new entrys added to the bottom. The setup for the jump vector 
and getting into the BIOS is diflferent than the old 1.0 system. 
Here is how the new system is set up with the fixed order for 
the jump vector: 



MAIN BIOS JUMP TABLE CALLED FROM INTERPRETER 
(FOLLOWED BY REAL JUMP TABLE AT FIXED OFFSET) 
RSP CALLS COME TO THIS JUMP VECTOR 



»" — -" — — - — — — — — — — — — — ■- — - — — — - — — - — — — — - — ^- — - — - — - — -- — - — — - — - 

BIOS JSR SAVERET 5C0NS0LE READ ;Jump uector before 


fold 


JSR 


SAVERET 


iCONSOLE MRITE 




JSR 


SAVERET 


iCONSOLE INIT 




JSR 


SAMERET 


IPRINTER WRITE 




JSR 


SAMERET 


[PRINTER INIT 




JSR 


SAVERET 


IDISK WRITE 




JSR 


SAMERET 


iDISK READ 




JSR 


SAVERET 


.DISK INIT 




JSR 


SAVERET 


REMOTE READ 




JSR 


SAVERET 


REMOTE WRITE 




JSR 


SAVERET 


REMOTE INIT 




JSR 


SAVERET 


GRAFIC WRITE 




JSR 


SAVERET 


GRAFIC INIT 




JSR 


SAVERET 


PRINTER READ 




JSR 


SAVERET 


CONSOLE STAT 




JSR 


SAVERET 


PRINTER STAT 




JSR 


SAVERET 


DISK STAT 




JSR 


SAVERET 


REMOTE STAT 




KCONCK JSR SAMERET !To 3i 


•t to CONCK from CONCKVEC 




JSR 


SAVERET 


USER READ For UDRWIS 
iUSER WRITE 
;USER INIT 
5USER STAT 




JSR 


SAVERET 


For PSUBDR 




JSR 


SAVERET 


IDSEARCH 





THIS JUMP TABLE MUST BE OFFSET 
FROM BIOSTBL BY EXACTLY *5C. 
SYSTEM. ATTACH MODIFYS THIS JUMP 
VECTOR TO POINT TO ATTACHED DRIVERS 
FOR THE STANDARD SYSTEM UNITS. 
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BIOSAF JMP CREAD iJump vector after fold. 
JMP CWRITE 
JMP CINIT 
JMP PWRITE 
JMP PINIT 
JMP DWRITE 
JMP DREAD 
JMP DINIT 
JMP RREAD 
JMP RWRITE 
JMP RINIT 

JHP lORTS fDo nothing for GRAFWRITE. 
JttP GRAFrNIT 

JMP IDRTS JDo nothins for PRINTER: read, 
JMP CSTAT 
JriP ZEROSTAT iFor PRINTER: stat » pop params Sc store 

lin 1st buffer word. 
JMP DSTATT 
JMP ZEROSTAT iFor REMOTE: stat* pop params & store 

5in 1st buffer word. 
JMP CONCK 

JMP UDRWIS iRoutine to Set to user defined devices » see 

lATTACH part of document for 

idesoription of 

ithis routine . 
JMP PSUBDR !Routine to sfet to drivers that are 

(Substituted 

Ifor the standard Pascal disk 

iunits 4 »5 »S. , 12. 

iSee ATTACH part of document for 

idesoription of 

ithis routine . 
JMP IDS 



STRIP LOCAL RETURN ADDR i 

STRIP PASCAL ADDR AND SAVE IN RETL .RETH 

PLACE "GOBACK" ON RETURN STACK 

THEN RESTORE LOCAL RET ADDR & RETURN 

MEANWHILE UNFOLD BIOS INTO DXXX 



SAMERET STA TTl iSAVE A REG 
PLA 

etc 

ADC «05A iADD OFFSET TO JUMP TABLE (BIOSAF) 

STA TT2 iLOCAL RET ADDR 

PLA 

ADC «0 

STA TT3 

PLA 

STA RETL i PRESERVE PASCAL RETURN 

PLA 

STA RETH 

.IF RUNTIME=0 
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LDA 0C083 ;UNFOLD BIOS INTO DXXX 

.ENDC 

LDA TTl ;REST0RE A-REG 

JSR SAURET2 !PUTS "GOBACK" ON STACK 



FOLD INTERP INTO DXXX 
THEN RETURN TO PASCAL UIA 
RETURN ADDR SAUED IN RETL >RETH 



GOBACK STA TTl ;SAUE A-REG 
LDA RETH 
PHA 

LDA RETL 
PHA 

.IF RUNTIME=0 LDA 0C08B JFOLD INTERP INTO DXXX 
.ENDC 
LDA TTl 
RTS .AND BACK TO PASCAL 

SAVRETZ JMP 

TT2 iJUMP INTO JUMP TABLE (BIOSAF) 

D. In zero page are two words pointing to the base of the two jump 
veaors (before and after the fold). These are stored in PER- 
MANENT locations that had a value of in the old 1.0 release 
and were not used by the system (see locations section). Appli- 
cations needing to patch the jump vectors can store the offset 
from the veaor base in the Y reg and use indirect indexed 
addressing to do the patch. The application will need to have the 
vector base locations for the old release hardcoded in as the base 
pointer for the old 1.0 release will be 0. If you want to write an 
application that works with 1.0 and 1.1 and future versions, you 
know if the zero page vector pointers are it's the 1.0 system 
otherwise it's 1.1 or a future version which will use the same 
protocols as 1.1 as described in this document. 

It is important that any application patching the jump vector 
temporarily then returning it to its original value get the original 
value from the vector itself before the patch and put it in a storage 
location. When the vector needs to be restored to it's original 
state, use this storage location for it's original value. The patches 
should be done in this manner so the applications doing the 
patches will always return the system to it's original state no 
matter what past, present or future Pascal version it is patching. 
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E. For CONSOLE: init to be used from assembly routines the 
locations of SYSCOM and the BREAK routine have to be avail- 
able. The CONINIT routine requires these on the stack. Pointers 
to SYSCOM and BREAK will be stored by the interpreter boot 
in a PERMANENT location in the BFOO page (see locations 
section). 

F. Since the old 1.0 release, the code to jump to the CONCK 
routine has been set up at location BFOA. Anyone wishing to 
get to the CONCK routine should do a JSR BFOA as this will 

really is. The keypress function has been changed to conform to 
this new convention but it will use the old convention if it is 
working from within an old system. Do not try to get to CONCK 
in this way from within an ATTACHED driver as you will loose 
your return address to Pascal. See ATTACH part of this docu- 
ment for how to get to CONCK from an attached driver. 

G. There is now a version byte so one can teU which version (1.0, 
1.1, etc.) of Apple Pascal he is working with. There is also a 
flavor byte to tell one which flavor of this version he has (regular, 
rtmtime, runtime without sets, etc.). (see locations section) 

11. Whenever SYSTEM.ATTACH is used, it will make a copy of the 
original BIOS jump vector (the after fold vector that has the actual 
driver addresses in it) and put this below the heap with the drivers 
that are attached. It will leave a pointer to this copy of the veaor at 
location 00E2. You can use this vector in you drivers to get to the 
standard Apple drivers for any device. This way you can define a 
driver that does something above and beyond the standard Apple 
driver yet this new driver can still make use of the standard Apple 
dri^^er. See Ae ATTACH psort of tMs ctacommtformortf infomi^^ 

12. In the RSP are two vectors that tell the RSP what is legal (input Sc- 
ot output) for a particular character orientated device (CONSOLE:, 
REMOTE: & PRINTER:). For example it tells the RSP that it is 
illegal to read from the PRINTER:. If you wanted to ATTACH a 
PRINTER: driver so you could read from die PRINTER:, you 
would have to change this vector. 00E4 points to the READTBL 
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vector and 00E6 to the WRTTTBL vector. Let's take the READTBL 
for an example: 



READTBL Stable of routine addresses to be called when 
Swritins to that unit (disK I/O does not use 
ithis table). 

!an entry=0 means that the operation is illeSal 
!for that unit. 

.WORD BIOS+CONREAD iunit 1 

.WORD BIOS+CONREAD 5unit 2 

.WORD I unit 3 

.WORD 54 & 5 are disK units 

.WORD 

.WORD ;B is PRINTER: 

.WORD BIOS+REMREAD iunit 7 

.WORD iS is rem write which has 

5an address in the WRITTBL 

Here BIOS refers to the base of the jump veaor before the fold and 

jump to the CONSOLE: read routine (for CONSOLE: read the 
offset is 0, for CONSOLE: write it's 3, etc). The value for BIOS is 
the pointer stored in location OOEC mentioned in the locations sec- 
tion below. 



Locations 

These are the locations of new system permanents mentioned in this doc- 
ument, all pointers are set up by the system and are stored low byte first. 
Do not modify what is stored in these pointers (except for SPCHAk if you 
want to suppress special character checking) since the system uses this infor- 
mation too. These locations are defined to have the same function & remain 
in the same place for future versions of Apple II Pascal. 



BFIC SPCHAR (To control special chars) 

BFID IBREAK (Set by boot in interp for assembly calls to CONINIT) 

BFIF ISYSCOM ( " " ) 

BF21 VERSION (1 byte Version « of system* =2 for the new release. 

for the old 1.0 release) 
BF2Z FLAVOR (This byte tells which flavor C runt ime » regular t 

etc.] of this VERSION you are dealing with) 

The encodins is: 



432 



1 -->re3ular system runtime versions; 

2 -->LC-ALL (LC- means no lanSuase card) 

4 -->LC-no floating point 

5 -->LC-no sets or floating point 
B -->LC+ALL 

7 -->LC+no sets 

8 -->LC+no floating point 

9 -->LC+no sets or floatins point 

This flavor byte is in the old 1.0 release. 

BFC0-BFFF.. BDEUBUF (Axe a _.f or n on Apple boot, d e Mi c e s.» 1 i.K.e t_h e CDRVUS.) 

00E2 ACJVAFLD (Pointer to ATTACH copy of the original Jump Vector 

after the fold) 
00Ea RTPTR (Pointer to READTBL) 
00EB WTPTR (Pointer to WRITTBL) 

00E8 UDjyP (Pointer to user device Jump vector) 
00EA DISKNUMP (Pointer to disknum vector) 
00EC JVBFOLD (Pointer to Jump vector before fold) 
00EE JUAFOLD (Pointer to Jump vector after fold) 

FFFB (Version word which = 1 for version 1.0 and 

= for version 1.1 
This version word should not be used at runtime 
to tell which version you have. For that use the 
version byte mentioned above. This word should only 
be used by software that wants to see which 
SYSTEM. APPLE it is dealing with by looKins at the 
contents of this word in the SYSTEM. APPLE file 
when it is not loaded in memory) 

FFFB (Start vector) 

FFFA (NMI non maskable interrupt vector) 

FFFC (RESET vector) 

FFFE (IRQ interrupt request vector) 

The locations and code in the 1.0 'PRELIMINARY APPLE PASCAL 
GUIDE TO INTERFACING FOREIGN HARDWARE' BIOS doc- 
ument are not the same for Apple Pascal 1.1 and that document clearly 
stated we would not commit ourselves to keeping them the same. 
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Pascal 1 . 1 Firmware Card Protocol 

One major problem with Apple Pascal 1.0 is the way it deals with peripheral 
cards. It was set up to work with the four peripheral cards that Apple 
supported at the time of its release (the disk,communciations,serial and 
parallel cards) and had no mechanism for interfacing any other devices. 
Since Apple as well as many other vendors continue to produce new periph- 
erals for the Apple ] [, a new protocol was designed and implemented in the 
Pascal 1.1 BIOS which allows new peripheral cards to be introduced to the 
system in a consistent and transparent fashion. The new protocol is called 
the "firmware card" protocol since the BIOS deals with these cards by 
making calls to their firmware at entry points defined by a branch table on 
the card itself. The new protocol fully supports the Pascal typeahead func- 
tion and KEYPRESS will work with firmware cards used as CONSOLE 
devices. The following paragraphs describe the firmware card protocol in 
full detail. 

A firmware card may be uniquely identified by a four byte sequence in the 
card's SCNOO ROM space. Location $CN05 must contain the value $38 
and location $CN07 must contain $18. Note that these are identical to the 
Apple Serial Card. A firmware card is distinguished from a serial card by 
the fiirther requirement that location $CNOB must contain the value SOI. 
This value is called the "generic signature" since it is common to all firmware 
cards. The value at the next sequential location, $CNOC, is called the "device 
signature" since it uniquely identifies the device. 

The device signature byte is encoded in a meaningful way. The high order 
4 bits specify the class of the device while the low order four bits contain a 
unique nimiber to distinguish between specific devices of the same class. 
The appendix to this document defines some device class numbers; in any 
case vendors should contact Apple Technical Support to make sure they use 
a unique number for their device signature. Aldiough the device signature 
is ignored by the 1.1 BIOS, it may be used by applications programs to 
identify specific devices. 

Following the 2 signature bytes is a list of four entry point oflFsets starting 
at address $CNOD. These four entry points must be supported by all firm- 
ware cards. They are the initialization, read, write and status calls. The BIOS 
takes care of disabling the $C800 ROM space of all other cards before calling 
the firmware routines. 
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The ofeet to the initialiTation routine is at location $CNOD. Thiis, if $CNOD 
contains XX, the BIOS will call $CNXX to initialize the card. On entry, the 
X register contains $CN (where N is the slot number) and the Y register 
contains $N0. On exit, the X register should contain an error code, which 
should be if there was no error. This error code is passed on to the higher 
levels of the system in the global variable "lORESULT'. Registers do not 
have to be preserved. 

The offset to the read routine is at location $CNOE. On entry, the X register 
will contain $CN and the Y register will contain $N0. On exit, the A register 
should contain the character that was read while the X register contains the 
lORESULT error code. The A and Y registers do not have to be preserved. 

The offset to the write routine is at location $CNOE On entry, the A register 
contains the character to be written while the X register contains $CN and 
the Y register contains $N0. On exit the X register should contain the 
lORESULT error code (which should be for no error). The A and Y 
registers do not have to be preserved. 

The offset to the status routine is at location $CN10. On entry, the X register 
contains $CN and the Y register contains $N0 while the A register contains 
a request code. If the A register contains 0, the request is "are you ready to 
accept output.''". If the A register contains 1, the request is "do you have 
input ready for me?". On exit, the driver returns the lORESULT error code 
in the X register and the results of the status request in the carry bit. The 
carry clear means "false" (i.e., no, I don't have any input for you), while the 
carry set means true. Note that the status call must preserve the Y register 
but does not have to preserve the A register. 

Thus, sample code for the first few bytes of a firmware card's $CNOO space 
should look something like: 



BASICINIT BIT $FF58 iset the u-flaS 

BVS BASICENTRY always taken 
lENTRY SEC 5BASIC input entry point 

DFB *90 (code for BCC 
GENTRY CLC iBASIC output entry point 

CLy 

BVC BASICENTRY JAlways taken 
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Here is the Pascal 1.1 Firmware Card Protocol Table 

DFB $01 jGeneric signature bvte 

DFB $41 iDeuice sisnature bye 
! 

PABCALINIT DFB >PINIT ! > weans low order b/te 
PASCALREAD DFB >PREAD Joffset to read 
PASCALWRITE DFB >PWRITE ioffset to write 
PASCALSTATUS DFB >PSTATUS ioffset to status routine 

The above code fulfils all the requirements for both the BASIC and Pascal 
1.1 I/O protocols. The routines PINTT, PREAD, etc, are probably jumps 
into the card's $C800 space which is already properly enabled by the BIOS. 
The reason the $CNOO space was chosen for the protocol (as opposed to 
the $C800 space) is that the BASIC protocol requires that all cards have 
SCNOO ROM space while some smaller cards may not need any $C800 
ROM space. 

The firware curd rtrntncn] inrlnd<*s ^^ nr\tir>r\a\ resile t-K-ai- An nm- U'^-^r^ t-r^ k« 

implemented but would be kind of nice. The BIOS checks location $CN11 
to determine if the optional calls are present; if that location contains a $00 
then the BIOS thinks the calls are implemented. Thus if your card does not 
implement the optional calls, you should ensure that $CN11 contains a 
non-zero value. The two optional calls are a control call pointed to by 
$CN12 and an interrupt handler call pointed to by $CN13. 

The control call entry point is specified by the offset at $CN12. On entry, 
the X register contains $CN, the Y register contains $N0 and the A register 
contains the control request code. Control requests are defined by the device. 
On exit the X register should contain the lORESULT error code. 

The interrupt poll entry point is specified by the offset at $CN13. On entry, 
the X register contains $CN and the Y register contains $N0. The interrupt 
poll routine should poll the card's hardware to determine if it has a pending 
interrupt; if it does not it should return with the carry clear. If it does, it 
should handle the interrupt (including disabling it) and return with the 
carry set. Also, the X register should contain the lORESULT error code 
which should be if there was no error. An interrupt polling routine must 
be careful not to clobber any zero page or screen space temporaries. 
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The control and interrupt requests are not implemented in the Pascal 1.1 
BIOS but it would be nice to support them if possible as they may be 
implemented in later versions of the Pascal BIOS as well as other forthcom- 
ing operating system environments for the Apple ][. 

Note that the firmware card signature is a superset of the Apple serial card 
signature as recognized by the Pascal 1.0 BIOS. This allows a firmware card 
to fimction with both Pascal 1.0 and Pascal 1.1. If a card wishes to work 
with Pascal 1.0 as a "fake" serai card, it must provide an input entry point 
at $C84D and an output entry point at $C9AA. Note that since Pascal 1.0 
will think the card is a serial card, tvoeahead and KEYPRESS caoabilities 
will be lost. 



Additionaf Notes 

1. The Pascal RSP expects the high order bit of every ASCII character it 
receives firom the Console read routine to be clear. The RSP will not 
do this for you; you must ensure the high bit of all text your card 
passes to the RSP from the console read routine is clear. 

2. Zero page locations $00 to $35 may be used as temporaries by your 
firmware, as are the slot screen space locations ($478,$4F8, etc.). 
In general, peripheral card firmware should be as conservative as pos- 
sible in their memory usage, preserving zero page contents whenever 
possible. An interrupt polling routine must not destroy these or any 
other memory locations. 

3. Location $7F8 must be set up to contain the value $CN, where N is 
the slot number, if your card utilizes the $C800 expansion ROM 
space. The BIOS does not do this for you; his must be done if you 
waiMyouf card to fwiction in «i interrupting envkcmment. 

4. The firmware card status routine should be as quick as possible, as it 
may be called from within the I/O polling loops of many other periph- 
erals if your card is being used as the console device. In no case should 
the status routine take longer than 100 milliseconds. 
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A firmware card in slot 1 is automatically recognized as the volume 
"PRINTER:". A firmware card in slot 2 is automatically recognized 
as die volumes "REMIN:" and "REMOUT:". A firmware card in slot 
3 is automactically recognized as the volumes "CONSOLE:" and 
"SYSTERM:". 
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APPENDIX 

The following numbers correspond to device classes used in the device 
signature code. Make sure you contact Apple Technical Support to ensure 
that you have a unique device signature code. 

-- reserved 

1 - printer 

2 -= joystick or other X-Y input device 

3 -- I/O serial or parallel card 

4 - modem 

5 ~ sound or speech device 

6 -- clock 

7 - mass storage device 

8 ~ 80 column card 

9 -- Network or bus interface 

10 -- Special purpose (none of the above) 

11 through 15 are reserved for future expansion 



Additional Information 

1 . The type ahead buffer is located at $03B 1 hex and is $4E hex in length. 
It is implemented with a read pointer (RPTR at BF18 hex) and a 
write pointer (WPTR at $BF19 hex). At CONSOLE: init time, these 
should both be set to 0. When a character is detected by CONCK, 
the WPTR is incremented then compared with $4E. If it is equal to 
$4E, it is set to $0 (this is a circular buffer). Then the WPTR is 
compared with RPTR and if they are equal the buffer is full. If the 
buffer is not full, the character is stored at $03B1 + the value in WPTR. 

When removing a character from the type ahead buffer, use the fol- 
lowing sequence. Compare the RPTR with WPTR and if they are 
equal, the buffer is empt)' and you must wait until a character is avail- 
able from the keyboard. If they are not equal, increment the RPTR 
and compair it to $4E. If it equals $4E, set it to $0. Now get the 
character from location $03B1 -l-the value in RPTR. 
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If you are implementing your own type ahead, you can do it however 
you wish. This information is made available in case you want to check 
for input from another device as well as the standard system CON- 
SOLE: and have characters from that device be put in the system type 
ahead buffer. 

2. The example drivers in this document did not show the setting of the 
lORESULT in the X register. This would be done in the code specific 
to your driver and should allways be set to something (0 if there are 
no errors). If there are errors, set it as described elsewhere in this 
document and the Pascal Manuals. 

3. For fiirther information, see the newest edition of the Apple II Ref- 
erence Manual. 

4. These listings from the BIOS are included to show you how we imple- 

xAxv-xAi-^^vL wwj.i.cujLi o^OLWXii M.11VW10. ±.yj\Ji V<Uill<L;L lUiy KJll LllC iLH-<lLlOll5 Ol 

these to stay in the same place in the BIOS in ftiture releases of Apple 
II Pascal nor can you rely on the routines themselves staying the same. 
They are only included as examples and to give you information that 
may not be documented elsewhere. This is not a complete BIOS 
listing so you may find references to routines or locations that are not 
included in this listing. The only locations that will be sure to remain 
the same for fixture releases are those mentioned in the LOCATIONS 
section above. We are against you poking the BIOS yourself to change 
or overwrite any of these routines. We did not include this information 
so you could poke the BIOS. If you do modify the BIOS, it is com- 
pletely at your own risk! We have provided die ATTACH utility so 
you can add your own drivers the system without poking the BIOS 
and this is the way it should be done! If you have special requirements 
that are not solved by ATTACH, please contaa Apple Technical 
Support. 



ZERO PAGE PERMANENTS 



FIRST ,EOU 0F0 5START ZERO PAGE USE 
BASIL .EOU FIRST iSCREEN 1 PTR 
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BASIH .EOU FIRST+1 

BAS2L .EOU FIRST+2 JSCREEN 2 PTR 

BAS2H .EOU FIRST+3 

CH .EOU FIRST+a iHQRIZ CURSOR. 0..7S 

Cy .EOU FIRST+5 JVERT CURSOR t 0..23 

TEMPI .EOU FIRST+B 

TEMP2 .EOU FIRST+7 

SYSCOM .EOU FIRST+8 52 BYTES PTR TO SYSCOM AREA 



BF00 PAGE PERMANENTS 



CQNCKVECTOR .EOU 0BF0A 54 BYTES 

SCRMQDE ;EOU 0BF0E 

LFFLAG .EOU 0BF0F 

NLEFT .EOU 0BF11 

ESCNT .EOU 0BF12 

RANDL .EOU 0BF13 

RANDH .EOU 0BF14 

CONFLGS .EOU 0BF15 

BREAK .EOU 0BF1B 52 BYTES 

RPTR .EOU 0BF18 51 BYTE 

WPTR .EOU 0BF19 51 BYTE 

RETL .EOU 0BF1A 

RETH .EOU 0BF1B 

3PCHAR .EOU OBFIC 



500 MEANS DO ALL SPECIAL CHARACTER CHECKING 

501 MEANS DON'T CHECK FOR APPLE SCREEN STUFF 

502 MEANS DON'T CHECK FOR OTHER SCREEN STUFF 
EOU 0BF1D 5INTERP STORES BREAK 8. SYSCOM ADR HERE FOR 
.EOU 0BF1F 5USER ROUTINES TO GET AT 

.EOU 0BF21 5VERSI0N OF SYSTEM SET TO 2 FOR APPLE 1.1 
EOU 0BF22 5SEE TABLE IN INTERP BOOT 

SLTTYPS .EOU 0BF27 5BF27..0BF2E 

XITLOC .EOU 0BF2F 5INTERP INITS THIS TO LOCATION OF XIT 
5F0RTRAN PROTECTION USES BF5B..BF7F 
iVENDOR BOOT DEVICES CAN USE BFC0..BFFF 



IBREAK 
ISYSCOM 
VERSION 
FLAVOR 



MISCELANEOUS PROGRAM EQUATES 



BUFFER .EOU 0200 5TEMP HSHIFT BUFFER (OVERLAPS DISK BUF) 

COMBUF^. EOU .0361 178 CHAR .TYPE-AHEAP BUF , 

CBUFLEN .EOU 9aE 578 DECIMAL 

NCTRLS .EOU 14. 5« CTRL CHARS IN TABLE 

SIGVALUE .EOU 1 

BYTEPSEC .EOU 25B. 5DISK INFO FOR DISKSTAT 

SECPTRAK .EOU 16. 

TRAKPDSK .EOU 35. „„„^Tr„.,r. 

UDJVP .EOU 0E8 50 PAGE JUMP VECTOR POINTER LOCATIONS 

DISKNUMP .EOU 0EA 
JVBFOLD .EOU 0EC 
JVAFOLD .EOU 0EE 
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nl^nnl 'Inu III '^"^^^ ^"° ^^^^^ ^^^° "" HIRES STUFF 
HSMODE . ECU 0E0 

JMECTRS .WORD UDJMPyEC 

.WORD DISKNUM 
.WORD BIOS 
.WORD BIOSAF 



HARD RESET INITIALIZATION 



START CLD ;SET HEX MODE 

SEI ;MAKE SURE INTERRUPTS ARE OFF. 



CLEAR ALL MEMORY TO BFFF 

(RUN-TIME SYSTEM:0 TO TOPMEM + BF PAGE); 



LDA tt0 

STA ZEROL 

o I r-i jicrfun 

TAY 

TAX 
ZERLP STA (ZEROL), Y ;WRITE A BYTE OF 

INY iBUMP POINTER 

BNE ZERLP ;L00P TILL NEXT PAGE 

INC ZEROH JBUMP MSB POINTER 

INX 

. IF RUNTIME=1 

CPX «TOPMEM !DONE CLEARING MEM' 

BNE «1 

LDX «OBF iCLEAR BF PAGE 

STX ZEROH 
*1: CPX «0C0 

BNE ZERLP 

.ELSE 

CPX »0C0 iDDNE CLEARING BEXX"? 

BNE ZERLP 

.ENDC 



CHECKSUM PROMS ON EACH SLOT 
TO FIND OUT WHO'S OUT THERE 

SUM TWICE TO TELL IF CARD THERE 

IF SUMS DONT MATCH THEN NO PROM IS THERE 

IF MS BYTE OF SUM=0 THEN NO PROM IS PRESENT 
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LDY «0C7 ;POINT TO SLOT 7 PROM 
NXTCRD STY CKPTRH !(CKPTRL=0 FROM MEM CLEAR) 
JSR CKPAGE ;i6 BIT SUM IN K*A 
STA CHECKL 

STK CHECKH ;SAyE FOR MATCH 
JSR CKPAGE <SUM AGAIN 
CPX «0 iWAS MSB ZERO? 
BEO NOPROM !YES NO PROM ON CARD 
CMP CHECKL JLSB MATCH? 
BNE NOPROM iNOt NO PROM ON CARD 
CPX CHECKH 

BNE NOPROM »MSB DIONT MATCH 
-6E0 SK I PIORTS 5 ALWAYS TAKEN 



TABLE OF CN05 AND CN07 BYTES OF EACH CARD 



CN05BYTS .BYTE 003.018.038.048 
CN07BYTS ,BYTE 03C .038 .018 .048 



NOM THAT ME KNON A CARD IS THERE. 
EXAMINE CN05 AND CN07 BYTE TO 
DETERMINE WHICH CARD IT IS 

SET CARDTYPE AS FOLLOWS: 
0=CKSUM NOT REPEATABLE OR MSB=0 
1=CKSUM REPEATABLE. CARD NOT RECOGNIZED 
Z=DISK CARD (BYTE 07= 03C) 
3=C0M CARD (BYTE 07= 038) 
4=SERIAL (BYTE 07= 018) 
5=PRINTER (BYTE 07= 048) 
e=FIRMWARE (BYTE 07= 048) 



SKIPIORTS LDX «5 54 TYPES OF CARDS 
NXTYP LDY *5 iCHECK BYTE CN05 OF CARD 

LDA (CKPTRL) .Y 

CMP CN05BYTS-Z.X ;MATCH TABLE? 

BNE TRYNXT ;N0. TRY NEXT IN LIST 

LDY »7 

LDA (CKPTRL) .Y iTEST CN07 BYTE 

CMP CN07BYTS-2.X iMATCH TABLE? 

fi€0--#T4» .J6&T4f ^^ATCHE-frr CAfM> -RECOGNIZe^) 
TRYNXT DEX JBUMP TO NEXT IN LIST 

CPX *2 !TRY ALL TYPES IN LIST 

BCS NXTYP ;IF NOT IN LIST. FALL THRU WITH X=l 
STOR CPX «4 ;iS IT A SERIAL CARD? 

BNE STORl 

LDY «0B 

LDA (CKPTRL) .Y 

CMP «SIGyALUE 

BNE STORl 

LDX «G 
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STORl LDY CKPTRH 

TXA 

STA SLTTYPS-0C0tY 
NOPRQM LDY CKPTRH 

DEY ;bump to next lower slot 

CPY «0C0 5SL0TS 7 DOWNTO 1 DONE? 
BNE NXTCRD iLOOP TILL 7 SLOTS DONE 

iLEAUE UITH Ared:=0 



SET UP CONCK VECTOR FOR KEYPRESS FUNCTION 



BEQ *2 iALWAYS BRANCHES 
$1 JSR KCONCK 5HERE ARE THE 2 INSTRUCTIONS TO BE TRANSFERRED 

RTS 
$2 LDY «3 5TRANSFER H BYTES TO BFOA 
$21 LDA $1 fY 

STA CONCKUECTOR.Y 

DEY 

BPL $21 

IISET UP JUMP VECTOR POINTERS IN PAGE 
LDY «7 
*3 LDA JVECTfifB>Y 

STA UDjyP.Y 

DEY 

BPL $3 



SET SCREEN MODE ETC 



LDA «80 
STA HCMODE 

LDA 0C051 .SET TEXT MODE 
LDA 0C052 ;SET BOTTOM a GRAFIX 
LDA 0C05fl iSELECT PRIMARY PAGE 
LDA 0C057 iSELECT HIRES GRAFIX 
LDA 0C010 ;CLEAR KEYBOARD STROBE 
JSR FORM 5ERASE SCREEN 
JSR INVERT 5PUT CURSOR ON SCREEN 
JSR DRESET 500 ONCE ONLY DISK INIT 
LDA SLTTYPS+3 5WHAT CARD IN SLOT 3? 
LDY «030 5SL0T 3 

JSR GENIT iSET BAUD IF COM OR SER THERE 
CPX »0 ;WAS AN EXTERNAL CONSOLE THERE? 
BNE STARTUP JNO.USE APPLE SCREEN 
LDA *a 

STA SCRMODE ;SET BIT 2 FOR EXT CON 
STARTUP JMP JPASCAL JFOLD IN INTERP AND START PASCAL 
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SUB TO CHECKSUM ONE PAGE 



CKPAGE LDA «0 

TAH !CLEAR SUM 

TAY ;CLEAR INDEX 
CKNX CLC 

ADC (CKPTRDjY IADD BYTE 

BCC NOCRY 

INX !INC HI BYTE IF CARRY 
NOCRY INY JBUMP INDEX 

. JbM CKNX ISUM 256 _ BYTES. 

RTS 5RETURN SUM IN X »A AND Y=0 



BIOS HANDLERS FOR LOGICAL AND PHYSICAL DEVICES. 



CONSOLE CHECK FOR CHAR AVAIL 

STATUS AND ALL REGS PRESERVED 

IF CHAR AVAIL jPUT IN CONBUF AND INC WPTR. 

WARNING, . .THIS ROUTINE ALSO CALLED FROM DISK ROUTINES 



CONCK PHP 

PHA 

TXA 

PHA 

TYA 

PHA 
RNDINC INC RANDL ;BUMP IB BIT RANDOM SEED 

BNE RNOOK 

INC RANDH 
RNDOK LDA SLTTYPS+3 JWHAT CARD IS IN SLOT 3? 

CMP «3 ?IS IT A COM CARD? 

BEQ COMCK JYES.GO CHECK IT 

CMP »4 ;iS IT A SERIAL CARD? 

BEO JDONCK JYES.IT CANT BE TESTED 

■dtp ■«€ 

BEO FIRMCK 
TSTKBD LDA 0C000 iTEST APPLE KEYBOARD 

BPL JDONCK ;N0 CHAR AVAIL 

STA 0C010 !CLEAR KEYBD STROBE 

AND «ia7F !MASK OFF TOP BIT 

TAX ;See if checKinS for apple special chars is 

LDA SPCHAR Uurned off. 

ROR A 

BCS N0TF0LP2 ;jump if so 

TXA 
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CMP «11. ;CTRL-K? 

BNE NOTK 

LDA «05B iYES. REPLACE WITH LEFT SOR BRACKETT 
NOTK CMP «1 CTRL-A? 

BNE NTTAB 

JSR HTAB JYES.TAB NEXT MULT 40 

LDA CONFLGS 

AND «OFE 

STA CONFLGS JCLEAR AUTO-FOLLOW BIT 

JMP DONECK 
NTTAB CMP «2B, iCTRL-Z? 

BNE NOTFOL ;N0»PUT CHAR IN BUFFER 

LDA CONFLGS 

ORA «1 

STA CONFLGS !SET AUTO-FOLLOW BIT 

BNE DONECK ;BR ALWAYS 

COMCK LDA OCOBE ;CHAR AVAIL? 

LSR A 

BCC DONECK JNO CHAR AVAIL 

LDA 0C0BF ;GET CHAR FROM UART 
GOTCHAR AND «07F JMASK OFF BIT 7 
NOTFOL TAX 

i-t^m wi wHnn usee ir uufibOie special cnar cnecKina is 

iturned off, 

ROR A 
N0TF0LP2 ROR A 

BCS NFMIl jJuMP if so 

TXA 

LDY »055 

CMP (SYSCOM) »Y ;STOP CHAR? 

BNE NOTSTOP 

LDA CONFLGS 

EOR »080 

STA CONFLGS ;YESfTOGGLE STOP BIT (BIT 7) 
JDONCK JMP DONECK 

FIRMCK LDA «1 

LDY »030 

JSR FIRMSTATUS 

BCC DONECK 

JSR FREADl 

JMP GOTCHAR 

NOTSTOP DEY 

CMP (SYSCOM) »Y 

BNE NOTBRK 

LDA CONFLGS 

AND «03F 

STA CONFLGS ;CLEAR FLUSH8.ST0P BITS 

.IF RUNTIME=0 

JMP TOBREAK 
.ELSE 

JMP @BREAK !BREAK OUT 
.ENDC 
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NOTBRK DEY CMP (SYSCOM) ,Y !FLUSH? 

BNE NOTFLUS 

LDA CONFLGS 

EOR »040 

3TA CONFLGS .TOGGLE FLUSH BIT (BIT B) 

JMP DONECK 

NFMIl TXA 
NOTFLUSH LDK kPTR 

JSR BUMP 

CPX RPTR !BUFFER FULL? 

BNE BUFOK 

JSR BELL 

JMP DONECK IBEEP&IGNORE CHAR 
BUFGK STK WPTR 

STA CONBUF.K iPUT CHAR IN BUFFER 
DONECK BIT CONFLGS 513 STOP FLAG SET? 

BPL CKEXIT 

JMP RNDINC iLOOP IF IN STOP MODE 

CKEKIT PLA 

TAY 

PLA 

TAX 

PLA 

PLP 

RTS !ELBE RESTORE STAT AND ALL REG AND RETURN 
BUMP INX JBUMP BUFFER POINTER WITH WRAP-AROUND 

CPX «CBUFLEN 

BNE BMPRTS 

LDX «0 
BMPRTS RTS 



INITIALIZE CONSOLE: 



CINIT PLA 



STA TEMPI ;SAVE RETURN ADDR 

PLA 

STA TEMP2 

PLA 

STA SYSCOM 5SAI.IE PTR TO SYSCOM ARE 

■PL-ft 

STA SYSCOM+1 

PLA 

STA BREAK JSAVE BREAK ADDRESS 

PLA 

STA BREAK+1 

LDA TEMP2 

PHA .RESTORE RETURN ADDR 

LDA TEMPI 

PHA 
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LDA RPTR 5FLUSH TYPE-AHEAD BUFFER 
STA WPTR 
LDA CONFLGS 
AND «03E 

STA CDNFLGS JCLEAR STOP .FLUSH .AUTO-FOLLOW BITS 
JSR TAB3 ;N0.H0RIZ SHIFT FULL LEFT 
CINIT2 LDA «0 JCLEAR lORESULT 
RTS ;AND RETURN 



READ FROM CONSOLE: 

KEYB0ARD.COM OR SERIAL CARD IN SLOT 3 



CREAD JSR ADJUST ;H0RIZ SCROLL IF NECESSARY 

LDY «030 iSLOT 3 

LDA SLTTYPS+3 5WHAT TYPE OF CARD? 

CMP «4 5IS IT A SERIAL CARD? 

BNE CREAD2 5N0 .CONTINUE 

JSR RSER 5YES. READ IT 

AND «7F ;MASK OFF TOP BIT 

RTS 
CREAD2 JSR CONCK ;TEST CHAR 

LDX RPTR 

CPX WPTR 

BEO CREAD 5L00P TILL SOMETHING IN BUFFER 

JSR BUMP 

STX RPTR !BUMP READ POINTER 

LDA CONBUF.X iGET CHAR FROM BUFFER 

LDX «0 iCLEAR lORESULT 

RTS ?AND RETURN TO PASCAL 



INITIALIZE PRINTER: 

PRINTER IS ALWAYS IN SLOT 1 

IT MAY BE A PRINTER .COM , OR SERIAL CARD 



PINIT LDY «010 iSLOT 1 ; 010 

LDA SLTTYPS+1 iWHAT CARD IN SLOT 1? 

CMP «5 ;PRINTER CARD? 

BEO CLRI01 ;YES.N0 INIT NEEDED 
GENIT CMP tta iSERIAL CARD? 

BEO ISER ;YES. INIT SER CARD 

CMP «3 ;COM CARD? 

BEO ICOM iYES.INIT COM CARD 

CMP «B 

BEO FIRMINIT 

LDX *3 5N0NE OF ABOVE .OFFLINE 

RTS 

FIRMINIT PHA 

JSR SERl 
LDY «0D 
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FMECl LDA (TEMPI) »Y 

STA TEMPI 

LDY 6F8 

PLA 

JMP STEMPl 



INITIALIZE REMOTE; 

REMOTE IS ALWAYS IN SLOT 2 

IT MAY BE A COM OR SERIAL CARD 

rinit'lda"slttyps+2 imhat" card in slot 2? 

LDY »020 

BNE GENIT ;BR ALWAYS TAKEN 



INIT COM CARD. Y=ONO 



ICOM LDA «3 iMASTER INIT 

STA 0C08E.Y ;T0 STATUS 

LDA "Zl. 

STA OCOBE.Y JSET BAUD ETC 
CLRIOl LDX »» iCLEAR lORESULT 
RTS ;AND RETURN 



INIT SERIAL CARD. Y=ONO 



iqPR JSR SERl .ASSORTED GARBAGE 

ISER JSR SERl^. ^^^^^ .^^^ ^p g^^^ DEPENDENTS 

CLRI03 LDX «0 -.CLEAR lORESULT 
RTS !AND RETURN 



ASSORTED SERIAL CARD SET-UP 



SERl STY 0BF8 5ST0RE NO 

TYA - ., 

LSR A 

LSR A 

LSR A 

LSR A 

ORA «0C0 

TAX 5MAKE OCN IN X 

LDA »0 

STA TEMPI 

STX TEMP2 .SET UP INDIRECT ADDRESS 

LDA OCFFF iTURN OFF ALL C8 ROMS 
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LDA (TEMPI ),Y JSELECT C8 BANK 
RTS 



WRITE TO CONSOLE: 

VIDEO SCREEN, COM OR SER CARD IN SLOT 3 



CWRITE JSR CONCK JCONSOLE CHAR AyAIL"? 

BIT CONFLGS ;iS FLUSH FLAG SET"? 

BVS CLRIO ;YES, DISCARD CHAR & RETURN 

TAX JSAVE CHAR IN X 

LDY »030 !SLOT 3 5010 

LDA SLTTYPS+3 !WHAT KIND OF CARD^ 

CMP «3 iCOM CARD' 

BEO WCOM JYES WRITE TO COM CARD SLOT 3 

CMP ma ;SERIAL CARD? 

CM? "r" '^^^'""^^^ T° SER CARD SLOT 3 
BEO WFIRM 

JSR INVERT SREMOME CURSOR 
LDY CH 

JSR gouT2 ;do the business 

n PTn . nv .^^^ ^'^"^^'^^ 'RESTORE THE CURSOR 
CLRIO LDX »0 iCLR lORESULT 

RTS 5RETURN FROM MIDOUT 

WFIRM TXA 

PHA 

LDA «0 

JSR lOWAIT 

JSR SERl 

LDY «0F 

JMP FVECl 



WRITE TO SERIAL CARD, Y = ONO ,CHAR IN X 



WSER JSR CONCK ;CONSOLE CHAR' 
TXA 
PHA SSAVE CHAR ON STACK 

JSR SERl ;assorted garbage 

PLA 

STA 05B8,X SET UP DATA BYTE 

JSR 0CSAA ;SEND IT (SHOUT) 

LDX «0 

RTS 



WRITE TO REMOTE:, CHAR IN A 
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RWRITE TAK iSAVE CHAR 

LDA SLTTYPS+2 JWHAT CARD IN SLOT 2? 

LDY «0Z0 

BNE GENW2 iBR ALWAYS TAKEN 



WRITE TO PRINTER CARD SLOTl . CHAR IN X 



WPRN JSR CONCK .CONSOLE CHAR AVAIL? 

LDA 0C1C1 ;TEST PRINTER READY 
BMI WPRN- !LOOP TILL -READY 
STX 0C090 ISEND CHAR 

CLRI02 LDX «0 



WRITE TO COM CARD » Y=ONO»CHAR IN K 



WCOM JSR CONCK ;CONSOLE CHAR? 

LDA 0C08E»Y ;TEST UART STATUS 

AND «2 ;READY? 

BEO WCOM !NO.WAIT TILL READY 

TKA 

STA 0C08F.Y iSEND CHAR 

LDX «0 

RTS 



WRITE TO PRINTER: . CHAR IN A 



PWRITE TAX ;SAVE CHAR IN X 

LDA LFFLAG JTEST LINE-FEED FLAG 

BPL LFPASS 5PASS IF BIT7=0 

CPX «10. IIS IT A LINE-FEED? 

BEO CLRIO 5YES.IGN0RE 
LFPASS LDY «010 ;SLOT 1 

LDA SLTTYPS+i 5WHAT KIND OF CARD? 
GENW CMP «5 JPRINTER CARD? 

BEO WPRN ;YES WRITE TO PRINTER CARD 
CENW2 CMPL.«4. i«E*I.AL. -GAIi©.? 

BEO WSER ;YES WRITE TO SER CARD 

CMP «3 !COM CARD? 

BEO WCOM ;yes write to com card 

CMP «B 
BEO WFIRM 
OFFLINE LDX «9 
RTS 
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READ FROM REMOTE: 



RREAD LDA SLTTYPS+2 5WHAT CARD IN SLOT 2? 

LDY «020 
GENR CMP «4 iSERIAL CARD? 

BEO RSER 5GET FROM SER CARD 

CMP *3 ;COM CARD? 

BEO ROOM ;GET FROM COM CARD 

CMP »6 

BEO RFIRM 

BNE OFFLINE JCARD NOT RECOG 



READ FROM COM CARD. Y=NO 



ROOM JSR CONCK iCHECK FOR CONSOLE CHAR 

LDA 0C08E.Y iTEST UART STATUS 

LSR A iTEST BIT 

BCC RCOM ; WAIT FOR CHAR 

LDA acaSF.Y iGET CHAR 

LDX «0 

RTS 

RFIRM LDA «1 

JSR lOMAIT 
FREADl JSR SERl 

PHA 

LDY «0E 

JMP FVECl 



READ FROM SERIAL CARD. Y =0N0 



RSER JSR CONCK 5C0NS0LE CHAR AVAIL? 

JSR SERl ;assorted garbage 

JSR 0C84D ;GET a BYTE <SHIFTIN) 
LDA 05B8.X ;GET BYTE 0678+SLOT 
LDX «0 
RTS 
FIRMSTATUS PHA 

JSR SERl 
LDY «10 
JMP FVECl 

lOWAIT JSR CONCK 
PHA 

JSR FIRMSTATUS 
PLA 

BCC IQWAIT 
RTS 
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ST 1 



ABIp-code 232,353 
ABI p-code routine 
ABRp-code 260 
ABR p-code routine 345 
Absolute value 232, 260 
Accessing data at the bit level 22 
Accessing elements of a multi-word 

structure 184 
Accessing elements of a record 1 86 
Accessing fields in different variants 20 
Accessing global variables within an 

intrinsic unit 192 
Accessing individual bits in an integer 24 
Accessing intermediate variaHes 64 
Accessing locations adjacent to 

an array 44 
Accessing parameters by turning off 

range checking 44 
Accessing real variables 84 
Accessing record elements 88 
Accessing string variables 88 
Activation record 152,177 
Addition 94 
ADDR function 44 
Address of a parameter 44 
ADI p-code 234,354 
ADI p-code routine 321 
ADJ p-code 86,87,282 
AD J p-code routine 327 
ADR p-code 262 
ADR p-code routine 344 
Advantages of pointer variables 32 



Allocating space for a dynamic 

variable 226 
Allocating storage for permanent 

variables 28 
Allocating storage on the heap 32 
AMD9511 355 
Apple keyboard port 32 
Apple Pascal's memory allocation 

scheme 28 
Arithmetic and logical instructions 232 
Arithmetic negation 94 
Arithmetic overflow 234, 240 
Array allocation 85 
Array index checking 66 
Array storage allocation 41 
Assigning one string to another 208 
Assigning real constants 64 
Assigning two data types to the 

same physical location 22 
Assigning values to a set variable 25 
ATTACH-BIOS diskette 392 
ATTACH.BIOS 152,375 
ATTACH.DATA 356, 392 
ATTACH.DRIVERS 356, 392 
Attaching drivers to block structured 

devices 390 
Attaching user drivers to the 

system 392 
ATTACHUD.CODE 356,393 



B 

B 153 

Backwards address allocation 



41 
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Backwards allocation 62 

BASE 152,307 

Base procedure 152 

BASE register 168, 170, 172 

Bell character 386 

Big parameter 153 

Binary Boolean operators' code 94 

Binary operator 234 

BIOS 311 

BIOS hooks 348 

Bit arrays 25 

Bit correspondences within a set 25 

Block move subroutine 341 

Boosting Pascal's execution speed 59 

Boot-time transient area 348 

BPT p-code routine 341 

Break character 387 

Break-even point on the case 

statement 68 
Building a singleton set 284 
Building a subrange set 286 
Bump exponent routine 343 
Byte and word comparisons 330 
Byte array comparisons 294 
Byte array handling 202 



C Programming Language 44 
Carriage return character 385 
Case jump instruction 304 
CASE statement 93 
CBP p-code routine 336 
CCS Arithmetic card 351, 355 
CGP p-code 98 
CGP p-code routine 335 
Character assignments 89 
Check for a 6502 subroutine 334 
Check for a stack overflow 334 
Checking a value to see if it is 

within range 248 
Checking an array index 248 
Checking array indices 42 
Checking for I/O errors 67 
CHK p-code 42, 86, 88, 248, 354 
CHK F>-code routine 322 
CHKGDIRP routine 312 
Choosing the REPEAT UNTIL loop 

over the FOR loop 91 



Choosing the While loop over the 

FOR loop 91 
CHR 94 
Clearing bits 24 
CLP p-code 98 
CLP p-code routine 335 
Code generated by arithmetic operators 94 
Code generated by functions and 

operators 94 
Code generated for complex 

expressions 95 
Code generated for expressions in 

Apple Pascal 94 
Code generated for set operations 86 
Code generated for the CASE 

statement 68, 93 
Code generated for the 

IF/THEN/ELSE statement 68 
Code offset value 76 
Code offsets 74 
Commenting tricks 45 
Comparison lead-in routine 329 
Compiled program performance 59 
Compiler fimctions 95 
Compiler messages 67 
Compiler range checking options 43 
Completion of p- subroutine set up 335 
Computing a power of ten 274 
Computing the address of an 

array element 85 
CONCAT function 96 
CONSCHK routine 381 
CONSOLE driver requirements 385 
CONSOLE init and status calls 381 
CONSOLE read and routine calls 381 
CONSOLE status routine 381 
Constant loads 154 
Contiguous case values 68 
Converting a REAL value to an 

integer value 256 
Converting an integer to a floating 

point value 252,254 
COPY function 97 

Copying NP into a pointer variable 228 
Creating a pointer to a field within 

a record 214 
Creating portable programs 32 
CROSSREF program 63 
CSP p-code 96,226,256,258 
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CSP p-code routine 338 

CXP and normal procedure routine, 

common code 334 
CXP p-code 96,97,98 
CXP p-code routine 336 
CXP parameters 98 
CXP utility subroutine 333 



Data offsets 74 

Data or code offsets 74 

DB 153 

Debugged programs and the 

RANGECHECK option 66 
Debugging Pascal Programs 1 5 
Debugging Pascal run-time errors 76 
Debugging run-time errors 76 
Declaring string sizes 65 
Declaring variables in separate 

statement 63 
DECODE 

disassembler 61, 83, 95, 98, 142 
DELETE procedure 97 
Determining the address of a 

data structure 44 
Determining the bounds of memory 

in use 36 
DIP p-code 87,294 
DIP p-code routine 326 
Directly reading the Apple's keyboard 37 
Disassembling an integer into 

four nibbles 22 
Disassembling an integer into 

hi- and low-order bytes 22 
Disk directory 224 
Disk I/O subroutine 348 
Dividing two integers 244 
Divisien -^94 
Don't care bj^e 153 
DUMPCODE disassembler 83, 95 
Duplicating string constants 65 
DVI p-code 244, 355 
DVI p-code routine 322 
DVIMOD routine 322 
DVR p-code 272 
DVR p-code routine 344 
Dynamic frequency analysis 7 1 



Dynamic memory allocation 35 
Dynamic variable allocation 19,224 
Dynamic variables 152, 224 
Dynamic vs. static optimization 70 



Echoing characters 386 

EFJ p-code 300 

EQU p-code 251 

Equal false jump instruction 300 

EQUI p-code 92,250 

EOUI routine 332 

Evaluation stack 151,154 

eX)ecuting a program 28 

EXECERR 352 

EXIT p-code routine 341 

Extended loads and stores 190 



Palse jump instruction 298 

Pield width 218 

Pinding free memory in Apple Pascal 36 

PIRMWARE protocol 375, 377 

Pirst 1 27 words of variables 64 

Pirst 1 6 words of storage in a procedure 6 1 

PIXSET routine 325 

PJP p-code 90, 92, 298 

P JP p-code routine 314 

PLC p-code routine 340 

PLO p-code 254 

PLO p-code routine 345 

Ploat integer value routine 345 

Ploating point addition routine 344 

Ploating point adjust routine 344 

Ploating point comparison routine 344 

Ploating point multiplication routine 345 

Flowing p^nt'^iorn^UzeHroHtine 34-3- 

Ploating point pop routine 342 

Ploating point push routine 343 

Ploating point round routine 344 

Ploating point subtraction routine 344 

PLT p-code 252 

PLT p-code routine 346 

Plush character 387 

POR loop "phantom" variables 90 

POR loop code generation 90 
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Function calls 98 
Function return values 



98 



GDIRP 224, 226, 228, 230 
Generating one byte loads 63 
GEQp-code 251 
GEQI p-code 250, 354 
GEQI routine 332 
GETBIG routine 312 
Global loads and stores 168 
Global variables 61,152 
GTR p-code 251 
GTRI p-code 280, 354 
GTRI routine 332 



H 

HEAP 32, 152, 224 
HIRES graphics 377,393 
HLT p-code routine 341 



! 



IDS p-code routine 338, 348 
IF . . . THEN . . . ELSE code 

generation 92 
Immediate loads 154 
INC p-code 214 
INC p-code routine 323 
Increasing the performance of Pascal 

programs 59 
Incrementing a field pointer 214 
IND p-code 184, 186 
IND p-code routine 323, 328 
Index subscript checking 42 
Indexing into a packed array 214 
Indexing into a string array 210 
Indexing into an array 216 
Indirect loads and stores 1 84 
Indirect, indexed loads 1 86 
Information provided on a 

compiled listing 73 
Initiahzing an array to zero 69 
INN p-code 87,94,288 



INSERT procedure 97 

Inside the p-code interpreter 307 

Instruction formats 1 5 2 

Instruction parameters 152 

INT p-code 87,292 

INT p-code routine 325 

Integer addition 234 

Integer comparisons 250 

Integer division 244 

Integer modulo 246 

Integer multiplication 240 

Integer operations 232 

Integer overflow 242 

Integer subtraction 238 

Intermediate loads and stores 1 76 

Intermediate variables 176 

Internally used strings 65 

Interpreter jump table 352 

Interpreter main loop 313 

Interpreter program counter 1 5 1 

Interpreter relative relocation table 

Intrinsic segments 95 

Intrinsic units 190 

IOC p-code routine 347 

lOR p-code routine 347 

lORESULT 353 

I0_ ERROR routine 67 

IPC 151,307 

IPC register 206, 296 

IXA p-code 85, 216 

IXA p-code routine 323 

IXP p-code 218 

IXP p-code routine 324 

IXS p-code 210 

IXS p-code routine 323 

J 

JTAB 151,307 
JTAB register 296 
Jump table 151,296 
Jumps 296 
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K 



KP 152,307 



LAE p-code 192 
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LAE p-code routine 317 

LAND p-code 276, 354 

LAND i>-code routine 3 1 9 

LAO p-code 84, 85, 86, 87, 88, 96, 172 

LAO p-code routine 316 

LDA p-code 180 

LD A p-code routine 316 

LDB p-code 96,202 

LDB p-code routine 319 

LDC p-code 84, 196 

LDC p-code routine 318 

LDCI p-code 86, 158 

LDCI p-code routine 314 

LDCN 156 

LDCN p-code routine 314 

LDEfvcode 190 

LDE p-code routine 317 

LDL p-code 162, 176 

LDL p-code routine 315 

LDM p-code 87, 198 

LDM p-code routine 3 1 8 

LDO p-code 84,85, 170, 176 

LDO p-code routine 316 

LDP p-code 222 

LDP p-code routine 324 

LDS p-code 97 

LDS p-code routine 338 

LENGTH function 96 

LEQ i>-code 25 1 

LEQI p-code 90, 91, 250, 354 

LEQI routine 332 

LES p-code 25 1 

LESI p-code 250, 354 

LESI routine 332 

LIBRARY program 395 

Line feed character 385 

Line feed insertion after carriage 

return 388 
List option 73 

-Li 8tMig-a<!ompiled-pro^am 73 
LLA p-code 1 64 
LLA p-code routine 315 
LNOT p-code 280 
LNOT p>-code routine 320 
Load constant NIL 156 
Load global word 170 
Load intermediate address 1 80 
Load intermediate variable 176 
Load local address 1 64 



Load segment routine 337 
Loading a global variable onto 

the stack 168 
Loading a packed array address 220 
Loading a string address onto 

the stack 206 
Loading a word from an intrinsic 

unit 190 
Loading an element from a 

packed field 222 
Loading and storing data 6 1 
Loading data from a byte array 202 
Loading intrinsic units off the disk 95 
Loading iocai variables onto the 

evaluation stack 160 
Loading real and set constants onto 

the stack 196 
Loading real and set variables onto 

the stack 198 
Loading the address of a local 

variable onto the stack 164 
Loading the address of an array 

element onto the stack 216 
Loading the address of an 

intermediate variable 1 80 
Loading values onto the evaluation 

stack 154, 158 
Local loads and stores 160 
Local procedures 98 
Local variables 152 
LOD p-code 176, 177 
LOD p-code routine 316 
Logical AND and OR operations 354 
Logical AND function 25 
Logical AND operations 276 
Logical comparisons 282 
Logical negation 94, 280 
Logical NOT operation 280 
Logical operations 276 
Lo^€>a)-OR-&actioa- 25 
Logical OR operation 278 
LONG integer routines 97 
LONGINT intrinsic unit 95 
LOR p-code 278,354 
LOR p-code routine 3 1 9 
Low level data manipulation 1 6 
LPA p-code 220 
LP A p-code routine 322 
LSA p-code 88,95,96,206 
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LSA p-code routine 322 
LSI-11 microprocessor 88 



M 



Maintaining programs 45 
MARK procedure 228 
Mark stack pointer 152 
Maximizing code usage 64 
MC68000 88,351 
MC6809 351 

Mechanical optimizations 59 
MEMAVAIL 36 
MEMAVAIL p-code routine 342 
Memory allocation 28 
MODI p-code 246 
Modifying the address contained 

within a pointer 36 
Modifying the Apple Pascal BIOS 375 
Modifying the Apple Pascal p-code 

Interpreter 351 
Modulo 94 

Mountain Computer Apple Clock 355 
Mountain Computer Apple Clock 

card 351 
Mountain Computer CPS card 35 1 
MOV p-code 88,212 
MOV p-code routine 319 
MOVELEFT 75 
Moving a block of words 212 
MP 152,307 

MP register 160, 164, 172, 177 
MPI p-code 240,321,355 
MPR p-code 268 
MPR p-code routine 345 
MRK p-code 228 
MRK p-code routine 320 
Multiple word loads and stores 1 96 
Multiplication 94 
Multiply p-code routine 321 
Multiply routine 321 
MVL p-code routine 342 
MVR p-code routine 341 
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Negating an integer 236 



Negating real values 264 

NEQ p-code 251 

NEQI p-code 250,354 

NEQI routine 332 

NEW 19,32,152 

NEW p-code 226 

NEW p-code routine 320 

New pointer 152 

NFJ p-code 302 

NGI p-code 236,353 

NGI p-code routine 321 

NGR p-code 85,264 

NGR p-code routine 345 

NIL 156,224,226,228,230 

Non-contiguous case values 68 

Non-integer comparisons 25 1 

Non-portable tricks 20 

Non-segmented procedure calls 98 

NOP p-code 88, 89, 95, 96 

NOT 94 

Not equal false jump instruction 302 

NP 152,307 

NP register 228, 230 ' 

NS 16032 351 

Null character 386 



Observing the action of the NEW 

procedure 35 
Obtaining the address of a REAL 

array element 216 
Obtaining the address of a SET 

array element 216 
Obtaining the address of a STRING 

array element 216 

Obtaining the Pascal stack pointer value 36 

ODD 94 

ODD function 276,280 

Offset into a procedure 73 

One's complement operation 280 

One-byte instructions for loading 

and storing data 61 
One-time initialization 71 
Optimization techniques 15 
Optimizing parameter data 63 
Optimizing a program to make 

it compact 63 
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optimizing array and subrange 

accesses 66 
Optimizing compiler generated code 15 
Optimizing for speed 70 
Optimizing I/O instructions 61 
Optimizing IF and CASE 

statements 67 
Optimizing loops 71 
Optimizing real variable accesses 64 
Optimizing string accesses 65 
ORB function 94, 276, 280 
Overriding the automatic 

initialization of pointers 32 

Overwriting noint«r vji1ii<»c '?fi 



P 



p-code assemblers 61 

p-code disassemblers 60, 61 

p-code subroutine call 334 

p-machine 151 

p-machine HEAP 152 

p-machine registers 307 

Packed field pointer 218, 222, 224 

Parameter allocation 41 

Pascal disk logical structure 390 

Pascal Tools II 60, 98 

Passing an array by value 75 

Passing global variables by reference 1 72 

Passing parameters by reference 44 

Patching the p-code interpreter 353 

PDQ disk utility 98, 145 

PDQ Pascal utilities 61 

PEEK 15,36 

PEEKing and POKEing various 

data structures 37 
Performing input or output to a file 67 
Phantom variables 96 
Pinpointing the^oeatkm of a 

run-time error 76 

Placement ofvariables within a program 61 
Pointer variable usage 89 
Pointer variables 32 
Pointers to integers 35 
POKE 15,36 

Pop parameters off 6502 stack 335 
Popping values off the evaluation 
stack 166 



POS function 96 

Positioning the editor at a specific 

line in a program 73 
POT p-code 274 
POT p-code routine 346 
Power of ten table 346 
PRED 94 
Preventing the emission of the CHK 

p-code 248 
Printable characters 387 
Printer init entry point 388 
Printer input entry point 388 
Printer status entry point 389 

Printing an integer in hex format 22 
Problems with pointer variables 32 
Problems with the CASE statement 68 
Procedure and function calls 304 
Procedure call routine 334 
Procedure calls 98 
Procedure dictionary 1 5 1 
Procedure lex level 73 
Procedure number 73 
Procedure segment number 73 
Program stack 28 
Program stack pointer 152 
Push activation record 334 
Push Boolean routine 331 
Pushing a block of words onto 

the stack 196 
Pushing the address of a string 

constant onto the stack 206 
Pushing the address of an element 

of a packed array 218 
Pushing the address of an intrinsic 

unit variable 192 



RANGERR 352 

RBP p-code 85 

RBP p-code routine 336 

Read segment routine 337 

Real addition 262 

REAL comparison routine 331 

REAL comparisons 276 

Real division 272 

Real multiplication 268 
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Real operations 252 

Real subtraction 266 

Record and array allocation 40 

Record and array handling instructions 212 

Record and word array comparisons 294 

Reducing the size of, and speeding 

up a program 61 
Referencing array variables 42 
Referencing variables as one of 

three data types 27 
Registers 151 
RELEASE 152,224 
Releasing storage allocated 

byMRK 230 
Relocation routine 337 
REPEAT . . . UNTIL code generation 91 
Replacing the console driver 380 
Replacing the PRINTER: driver 387 
Replacing the REMIN and 

REMOUT drivers 389 
Reserved word table 348 
Resetting bits 24 
Re-using record fields 16,17 
Reverse Polish notation 95 
Right bit number 218 
RLSp-code 230 
RLS p-code routine 321 
RNDp-code 256 
RND p-code routine 346 
RNP {>-code routine 336 
Round routine 346 
Rounding a real value 258 
RSP 385 
Run time support package 142 



SAS p-code 89,95,208 

SAS p-code routine 323 

SB 153 

SBI p-code 238, 354 

SBI p-code routine 321 

SBR p-code 266 

SBR p-code routine 344 

Scalar variable allocation 61 

SCN p-code routine 340 

SEG 151,307 

Segment procedures 28, 98, 152 



Segments reserved for the system 74 
Selectively setting or clearing 

bit patterns 25 
Selectively turning the range 

checking on or off 43, 66 
Self relative pointers 296 
Set adjust 282 
Set assignments 86 
Set compare jump table 333 
Set comparison routine 333 
Set comparison setup routine 332 
Set comparisons 294 
Set difference 86,294 
Set difference operator 26 
Set equal routine 333 
Set equality operator 26 
Set greater than or equal routine 333 
Set inclusion 94 
Set inclusion operator 26 
Set inclusions 86 
Set inequality operator 26 
Set intersection 86, 292 
Set intersection operator 25 
Set less than or equal routine 333 
Set membership 288 
Set membership operator 26 
Set not equal routine 333 
Set operations 86, 282 
Set remainder check routine 333 
Set type implementation 25 
Set union 86,290 
Set union operator 25 
Setting bits 24 
Setting several bits with a single 

assignment 25 
SETUP program 355 
SGS p-code 284 

Shared allocation in Apple Pascal 15 
Short load word indirect, indexed 184 
Short store local 166 
Shrinking Pascal programs 59 
Signed byte 153 
Similarities between Pascal 

and BASIC 28 
Simulating PEEK and POKE 36 
SIND p-code 184 
SIND p-code routine 317 
Sixteen-bit microprocessors 88 
Size of the CASE table 68 
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SLDC p-code 85, 86, 87, 88, 97, 154 

SLDC p-code routine 313 

SLDLi^code 63, 160 

SLDL p-code instruction 61 

SLDL p-code routine 314 

SLDO p-code 63, 83, 89, 92, 94, 168 

SLDO p-code instruction 6 1 

SLDO p-code routine 315 

SP 151 

SP register 204 

Space available- for user programs 2& 

Space character 386 

Speed of the CASE statement 68 

Speeding up a program vs. shrinking it 70 

SQI p-code 242 

SQI p-code routine 321 

SQR p-code 270 

SQR p-code routine 345 

Squaring an integer 242 

Squaring real values 270 

SRO p-code 83, 87, 89, 94, 174 

SRO p-code routine 3 1 6 

SRS p-code 286 

Stack pointer 151 

Start/stop character 386 

Static analysis 154 

Static frequency analysis 70 

Static links 177 

STB p-code 204 

STE p-code 194 

STE p-code routine 317 

STLi>-code 166 

STL p-code routine 315 

STM p-code 84, 85, 86, 200 

STM p-code routine 319 

STO p-code 90, 188 

STO p-code routine 318 

Storage requirements for Pascal 

variables 38 
Store a global word 174' 
Store a word into an intrinsic unit 1 94 
Store data indirect 188 
Storing a block of words 200 
Storing data into a byte array 204 
Storing data into a packed field 224 
Storing data into an intermediate 

variable 182 
Storing data into an intrinsic unit's 

global area 194 



Storing often used constants in 

a variable 64 
Storing real and set values 200 
Storing top of stack into a 

local variable 166 
STP p-code 224 
STP p-code routine 325 
STR p-code 182 
STR p-code routine 317 
STR procedure 95,97 
-String address high order byte 89 
String comparison routine 330 
String comparisons 276 
oiriug flaiiuiing iuriuuuiis :?j 
String handling instructions 206 
String optimizations 65 
Strings in Pascal 206 
Subtraction 94 
SUCC 94 
SYSCOM 224, 382 
SYSTEM.ATTACH 356, 377, 392 
SYSTEM. STARTUP 392 



Taking the absolute value of an integer 232 

Testing bits 24 

TIME 355 

TIME pHcode routine 341 

TNC p-code 256 

TNC p-code routine 346 

Top of stack arithmetic 232 

Transferring a block of words to a 

similar structure 212 
Treating a word as a set or a Boolean 

array 26 
Treating Boolean values as integers 276 
Treating integers as Boolean values 276 
Triclts will the case vaf laiit T9 
TRS p-code routine 339 
TRUNC function 256 
Truncating a REAL value 256 
Truncation routine 346 
TRVSTAT routine 312 
Turning off the range checking 66 
Turning the I/O checking on or off 67 
Turning the range checking off 43 
Two's complement 236 



461 



Two-byte load and store instructions 64 
Type ahead buffer 387 
T5T5e transfer functions 276 
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UB 153 

UB values 208 

UBUSY p-code routine 347 

UCLEAR p-code routine 347 

UCSD Pascal version IV.O 154 

UJP p-code 90, 91, 92, 93, 297 

UJP p-code routine 314 

ULS p-code routine 338 

Unary operators 232, 258, 280 

Unconditional jump instruction 297 

Understanding the operation of the 

p-machine 59 
UNI p-code 87,290 
UNI p-code routine 326 
Unimplemented opcode 311 
Uniquely indentifying a procedure 74 
UNIT 152 

UNIT I/O routine 348 
Unit on-line check routine 346 
UNITCLEAR 394 
UNITREAD 390 
UNITWRITE 390 
Unload segment routine 338 
Unsigned byte 153 
UPIPCl 313 
UPIPC2 313 
UPIPC3 313 

URE AD input entry point 348 
User hardware drivers 152 
Using better algorithms 70 
Using FILLCHAR to initialize arrays 69 
Using two variant fields 

simultaneously 21 
USTATUS p-code routine 347 
UW AIT p-code routine 347 
UWRITE output entry point 348 



Value Range error 43 
Variable address assignment 37 
Variable declaration order 63 
Variable definitions and the size 

of a program 6 1 
Variable definitions and the speed 

of a program 6 1 
Variable length instructions 162 
Variable storage 152 
Variant records 16 
Variant storage allocation 1 7 
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Wasted space in Pascal records 
When not to pull tricks 44 
WHILE loop code generation 91 



XEQERR routine 312 
XIT p-code routine 321 
XJP p-code 93, 304 
XJP p-code routine 320 
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Zeroing integer arrays 69 
Zeroing real variables 69 
Zeroing record variables 69 
Zeroing set variables 69 
Zeroing user defined scalars 



69 
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